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in t 

the jar-cron one phrase rans 
and clear, so this year's fau: 
is 'desk-top publishing 1 . Basically, 
this is the use of a software package 
which is like a super-wordprpcessor 
devised to design page layouts. How 
professional finishes are within the 
grasp of anyone who wants to 

K -oduce. a computer fanzine. To nark 
ris new era we've decided to do all 
of our news this month using .. 
flriolasoft's Newsroom and a full 
review of this can be found on page 
-The Show itself was a great success 
and the mood was one of dynamism 
and hopefulness, a great, contrast to 
last year's impression of depression 
end. due p point went. 

Atari put on their boscing gloves 
to prove that the ST is a, machine 
with a very tig future. Spanning the 
large area between the business and 
1 ^ j-. section = -■ *- tho diftW lllre s 



was heavily on business a.PF 
Similarly, Commodore emph; 
their attempt to re-establis 



_ . lish 

w«»»elves in the business field. . bi 
forsaking the Main Hall, totally m 
favour of the quiet seclusion of . 
Olympia 2. ^nie^result^of^th^ was t. 
chance to see the new 64C, unless 
they caught a glimpse of the odd 
machine lurking on one of the sta 
in the Main Hall. 

The result, was that Amstrad's r. 



Broken Dreams 
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Without music, graphics 
and sound the Board 
Game has become the 
most popular in the 
world. 

Now it has them. 




“Over 3,000 questions of no vital importance.” 



Available now on 

Spectrum 48/128K Commodore 64/1Z8K 
BBC ‘B’ Amatrad CPC 

Cassette and Disk 




and all local stockists 



TRIVIAI. niMUmtsTnds Marti ownad and beamed 0* Hoen Abbot Internal xmal Lid. 
PuMrehed by Drimark I .Imbed. Z04 W nr pie R« d. lamdon SW20JPN. Tel: 01-947 W24. 
Trivial Pursuit projr ammed by Onlotd IMgtlal Bnierpiieo, 




D O M A R K 




.C16+4 CBM 64/12 



. colleclMT 



1 ^, 

Recor* 

banks 



■ player the du 






r I FutueKnight Trabbzer 

n 48K| 06 + 4 MSX Spectrum 48K. 

15 £ 6.95 £ 7 . 95 / 

CBM 64/128 /jj 

£ 9.95 / / 





o in ^ r 


W m 









r 



^Tke ^French Collection 

Eric Doyle dons his beret and investigates Infogrames’ 
software with a French accent. 




HI® Ifl l 
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Open the fridge door and immerse yourself in the latest 
Heroic Warrior Adventure. 




path climbs straight up to 
what you thought was a cave, but 

— 1 get there, you And that 



when you get tnere, you nna tnat 
the entrance Is blocked by a huge 
boulder. You tiy pushing It away 
but to no avail. The only way that 






Have you got your grappling 
~ prepared (La already 



swinging) 
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Irtdis Alpha 
Llamasoft/Hevj 
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played in plan 
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ADVENTURE 
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Dungeon 

Dressing 

Rorflnn Tfamlptt helm vmi to Out 



A H VENTURE 



ssrr: 



Gordon Hamlett helps you to put 
flesh on the hare hones of your 



SSSSSKSSKffi 

ssHFsE^re 

modified by -S%,0%,0%, + 10%, 
1 5%. If a oharaoter was scared 
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STRRGLDBE 

^ A Game of Interstellar Exploration 
Fly your starship through a 3-dimensional globe of 2000 stars 



STARLIST 

colour 




UMMOTM4 \ V 0D °""- SS 

Cost per turn is £1.90, Europe £2.40 
USA and Australia £2.90 



Time Patterns 
97 Devonshire Road 
Birmingham B20 2PG 
021-523 4446 

0 GRAGROM^/12 

Now- Starglobe 4 




HI-SCORE 





Good luck. 









C16 - PLUS 4 CENTRE 



Books - Games - Budget Games 
Text Aventures - Graphic Adv 
Sport Simulators - Flight Simulators 
Utilities - Music Makers - Paint Prog 
Graphic Designers - Data Bases 
Spread Sheets - Word Processors 
Business Progs - Joysticks 
Ram Packs - Dust Covers - Leads 
Interfaces 

In fact anything to do with 
C16 or Plus 4. 

Send S.A.E. for a detail leaflet. 

C 16/Plus 4 Centre, ANCO Marketing Ltd, 

4, West Gate House, Spital Street, 

Dartford, Kent. DAI 2F.H. Tel: 0322-92513/92518 



24 Hour hot line: 0322/522631 






Sli-B-miPTIOHS 



DON’T MISS OUT! I 

Now that you have read this Issue of 
Computer Gamer and you know how 
interesting and invaluable it is, wouldn't it be 
a crime to run the risk of missing a single 
thrilling issue? 

Well, you don’t have to! 

If you order a subscription to Computer Gamer 
you will be assured of receiving every issue 
through your letter box each month without 
the worry involved in rushing to your local 
newsagent before all your friends have nabb- 
ed the available copies. 

Simply fill in the coupon and send it in with 
your remittance and sit back and wait for 
thrills and excitement to come directly to you! 



Subscription Order Form 
Cut out and send to: 
Computer Gamer 
Infonet Ltd., 

Times House, 

179 The Marlowes, ^ 
Hemel Hempstead, 

Herts. HP1 IBB. 




• Please commence my subscription with the 
very next issue. 

Subscription Rates 
(tick □ as appropriate) 




£16.60 for 12 issues UK □ 

£21.50 for 12 issues overseas surface post □ 
£28.00 for 12 issues USA surface post □ 
£57.00 for 12 issues airmail □ 



1 am enclosing my (delete as necessry) 
cheque /Postal Order / International Money 

Order for £ 

(made payable to ASP Ltd) 

OR Fx ^ 

Debit my Access □ Barclaycard □ 

1 1 1 i i i i i i i i i i i i i i i~i3l 



Please Use Block Capitals and include post 




NAME (Mr/Mrs/Miss). 



POST CODE.. 

SIGNATURE 

DATE 




ADVENTURE REVIEWS 




OTAR RATING 





COMPUTER GAMER OCTOBER 1986 









▼ THE PLUG-IN EXPERT CARTRIDGE -^77 
mkLmt expert action MIL 

IN SECONDS FOR YOUR COMMODORE COMPUTER V/ 






29 HOLME IANE BRADFORD BD4 OQAP CALLERS 329 TONG STREET BRADFORD BD4 9QY Tel (0274) 684289 
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Ocean Software Limited 
6 Central Street Manchester M2 5NS. 
Telephone: 06 1 832 6633 Telex: 669977 



/ / f 
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BPKB 


Mil 





Berk. Bom and Drutt may 
nothing to you at the nu 
Out after October 0th 



Berk la a blue bl ob ( 
and he'e the elan at the Thing 



Bark’s pet who generally gets 



Berks life — always obey the 
Thing Upstairs and don’t open 
the trapdoor. Berk Is not very 
bright and often leaves the 



commercial goodies which havt 
been inspired by the series is e 
gem of a oomputar game from 
Piranha, Macmillan Publishers 



Don’t you open that Trap Door 
there’s a Piranha down there. 



□meant part to play In th 
Ws join Berk In the trapdoor 
room, Boni Is quietly surveying 
the scene from hie perch In an 
alcove while little Drutt gambols 
around the floor. Suddenly 
everyone freezes aa a command 
gradually cornea into focus on 
.v- it"--- ia the graphic 



of six gone. To ! 

a sig- dragged B< 



s mystery 1 
to the Trap 



Upping In and gulped m; 
own. Whose side Is thal 
| on? 

vthe Thing wi 






t task. The disadvantage 
system Is the loss ofbonus 
but this Is no mator 



I'-T.U.' 

hardship. 



as 






sser 





COMPETITION RESULTS 

Computer Gamer is well known for its fantastic 

competitions with. REAL winners. So who won? Who 

lost? What was the answer? Who cares? For the answers _ 

to these questions and many more, read on . . . 




toxeter; Rodney Tregale, Sloug h ; 
Kick Pusey, Mlldenhall; Richard 





Here at last is the all new Improved 
Gamer reader’s club 
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COULD THIS BE YOUR 
PROGRAM? 




Is your program good enough to fill 
this spot? 

Will your game be the next No. 1 hit? 

Are you looking for top royalties? 

Are you writing for leading computers 
such as Commodore 64/128, C16/Plus-4, 
BBC/Electron, Atari, Amstrad, MSX, 
Spectrum or any other 6502/Z80 Micro. 



Answer YES to any of these questions 
and we would like to hear from you. Send 
your program tape or disc, together with 
full instructions for fast evaluation. Be sure 
to state your computer type, memory, 
peripherals used and your name, address 
and telephone number. 



34 BOURTON ROAD GLOUCESTER GL4 0LE 
Tel (0452)412572 



3 .S: Wei 



> looking for 6502/Z80 programmers for urgent conversion 1 







j 

i 




Eat your heart out Jeff Minter. Here is a simple 
to use sound to light program in machine code 
for any ZX Spectrum. Play music into the ear 
socket on a Spectrum and watch the screen! 




£ 




1 REM by MARK PXCFORD 1986 
5 CLEAR 29999: BORDER 0: PAPER 0: INK 
7: BRIBHT 1: CLS 

10 FOR f=0 TO 113: READ a: POKE (30000 
+f ) ,a: NEXT f 

20 FOR f =0 TO 77: READ a: POKE (31000+ 
■f > ,a: NEXT f 

25 GO SUB 2400 
27 RANDOMIZE USR 31000 

30 DATA 33,15,88,6,11,197,84,93,19,6,1 
6,205, 106,117,203, 191,203,159,203, 167,20 
3,175 

40 DATA 119,18,43,19,16,239,62,48,35,6 

1.32.252.193. 16.224.1.96. 1.33.0. 88.17 

50 DATA 191,90,126,18,27,35,11,120,177 
,254,0,32,245,201,14,0,219,254,203,119,4 
0,4 

60 DATA 203,193,24,2,203,129,219,254,2 
03,119,40,4,203,201,24,2,203, 137,219,254 
,203,119 

70 DATA 40,4,203,209,24,2,203,145,219, 

254.203. 119., 40, 4, 203, 119,40,4,203,241,24 
,2,203,117,121,201 

80 DATA 0,127, 127. 127 , 127 , 127 , 127 ,0,17 
,88,255,33,24, 121,1,8,0,237, 176, 62, 2, 205 
90 DATA 1,22,62,1,237,163,33,255,87,17 
,0,88,1,191,2,62,0,119, 1,192,2,62 
100 DATA 144,215,11,120,177,194,67,121, 

1.9.0. 118.11.120.177.194.79.121.58.8.92, 
254 

i DATA 32,202,100,121,205,48,117,195, 



76, 1 



201 , 



1000 BRIGHT 0: PAPER 7: INK 0: BORDER 7 
2500 PRINT AT 0,0.;" PLAY MUSIC INTO THE 
EAR PHONE " : AT 1,5; "AS IF YOU ARE LOADI 
NG . " ; AT 2,6; "MARK PICKFORD 1986";AT 3,6; 
"PRESS BREAK TO QUIT": PRINT AT 21,0; FL 
ASH 1;" PRESS ANY KEY 

2510 PRINT AT 4,1; "FOR A COPY HIT BREAK 
AND"; AT 5,5;" THEN GO TO 9999" 

2700 PAUSE 0: INK 0: CLS 

3000 RETURN 

9999 SAVE "MUSIC" 
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Paris far breakfast, 
Tokyo far lunch anti the Golden 
Gate Bridge far dinner. 






.1986 




Ever wanted fame and fortune In one of Britain's 
leading computer magazines? 

Do you think that anything that you have 
programmed Is up to our standards? 

We are looking for programs to publish for the 
following machines: Commodore 64, VIC, C16, Plus/4 
Spectrum, Orlc/Atmos, Atari 400, 600XL, 800, 800X1.’ 
66XE, BBC, Electron, Amstrad and TI-99/4A (BASIC or 
Extended). 

All programs should be recorded on tape as mam 
times as possible and at the most reliable baud rate 
(where applicable). No printed listing is necessary as i 
can do our own except in the case of the TI-99/4A whe 
a listing produced on a computer printer is absolutely 
necessary. No handwritten or typed listings i 
acceptable. 

, Any tape must be clearly marked with the program 
name your name, the machine It is Intended for a ' 
your address. 

Documentation should run to our normal style with 
a description and introduction to playing the game and 
how the game works. 

Documentation should be typed on one side of blank 
margin 81- Wlth double spaoln § between lines and a wide 

We pay well for all listings published. 

If you want to send us your program then fill in the 
form. And send us the tape, documentation, coupon, 
address SAE ** y ° U want 16 returned . to the following 




* £19.96). As is 
' usual with these i 



i not worth playing ' 



While Dwarf 



mph and you're in trouble. The 
penal ties youamass result in the 
car changing colour and you loss 
two colours if you hit the water 
at speed. When the car turns red 

probably be your last. 



ing a rear view of your rally car 
travelling through a landscape 
which looks to me like a vast 
African plain. Trees are plentiful 

flciently to allow you toslalom 
stacles Include obelisks, conee 
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AND THEY CALL THEMSELVES 

ADULTS!!! 





The times they’ve 
left you at home 
because ‘you’re not 
grown up' or ‘not old 
enough to come to the pub’ 
and look what they get up to 
when they get there! Here’s your 
chance to find out what it's really 
like in those smoke filled haunts 
of adulthood. The opportunity to 
see how good you are at these 
ADULT?? games. 

Why let the mums and dads 
have all the fun. Pub Games can 
be a laugh for everyone. 



ALLIGATA BITES BACK ■ ALLIGATA BITES BACK 



a compilation of 

BAR BILLIARDS DOMINOES 
DARTS -TABLE FOOTBALL 
POKERS PONTOON i 
BAR SKITTLES 

available on 

Commodore 64/128 • Spectrum 48K ■ 
Available soon BBC 




^ ft*. U 

-<t£s BACK ■ ALUGATA BITES BACK ■ ALUGATA BITES BACK ■ ALUl 
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WHATEVER YOUR HOBBY. . . 




. . . YOU'LL CLICK WITH PHOTOGRAPHY 

Britain's newest, brightest and most exciting 
photographic magazine is on sale at your 
newsagent now. 







m 



il 











§ 


2*3 

1 


m 

1 


I 

JDJJi 





FPF 



L £ 



STS 



f by ^dxew'cZajlci 



a 







no of the Seven BarMngDt^ 
Witti his jaunty hat and a raw- 





Pharoah of Egypt’s pet dofc 



3 part^you fi 



DOWN to slow and left and right 
are obvious Build up speed or 
your time will run out Each time 
you are knocked off or rtin out of 
time you lose a life. You can also 
press FIRE with DP or DOWN to 

When the truck appears ram 
The final level is pure otne- 
hack as Indoggy climbs under 
takes over°tha drtrar^wheall 

agaUi^Ss’lS forYEff and 



1 REM *** ANDREW CLARKE’S »*» 

2 REM »** INDOG ANA BONES IN *«* 

3 REM *** RAIDERS OF THE *** 

4 REM *** LAST BARK <C> 1966 *** 

5 REM »** *** 

6 REM *** PART ONE / SPRITE DATA *»* 

7 REM ****************************** 

1 O BOSUB 1 00 : F0RS=236T0254 : F0RT=0TO62 

1 2 READ A i P0KES*64+T , A : NE X T : NEX T : GOTO 1 1 0 
100 P0KE532B0,0: P0KE53281 ,0 
102 PR I NT "3" 

104 PRINT" EKBfUHDOi ■ [THE SPRITE DATA IS NOW 
LOADING. " 

106 PR I NT "MSB** PLEASE WAIT." 

108 RETURN 

110 PRINT" mirlelBlBll* ■ IDAT A IS NOW IN MEMORY 

112 PRINT"HBft*»CPLACE PART TWO IN CASSET 
TE AND NEW" 

114 PRINT "■»ITHIS PART. 1PRESS RUN/ STOP AN 
D RESTORE" 

116 PRINT"**fTHEN PRESS SHIFT AND RUN/STO 
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30065 

30066 

30067 

30068 

30069 

30070 

30073 

30073 

30074 

30075 

30076 

30077 

30078 

30079 

30080 



DAT A 1 04 , 0 , 194,232,0, 194,246 
DATAO, 194, 191 ,0,194,168,0 
DATA242, 168,0,61 ,84,0,15 
DAT A252, 0,0, 252, 0,3, 252 



l DATAO, 16B, 0,0, 168,0,2 
' D AT A1 70, 0,0, 84, 0,0, 92 
DATAO, 0,95, 64, 0,95, 192 
DATAO, 95, 192,0,80,0,50 
DAT A 1 04 ,0,50, 232 , 0 , 50 , 2 
DATAO, 50,232,6 
DATA50, 168,0,6 
DAT A252 ,0,0,240,0,0, 192 
DATAO, 0,192,0,0,240,0 
REM *** INDOGGY F 
DATAO, 168,0,0,1 
DATA 170, 0,C 
DATAO, 0,95, 64, 0,95, 192 
DAT AO, 95,1 
DATA104, 0,194,232,0 



RIGHT « 



30082 

30083 

30084 

30085 

30086 DATAO, 

30087 



3,0,6 



30089 

30090 

30091 

30092 

30093 

30094 

30095 

30096 

30097 

30098 

30099 

30100 

30101 

30102 

30103 

30104 

30105 

30106 

30107 

30108 

30109 

30110 



30122 

30123 

30124 

30125 



84,0,15 
252,0,3,252 
' ~ 3,192 



DATAO, 15, 1 

REM *** INDOGGY LEFT 
DATA2, 160,0,2,1 
DATA168, 0,1,80,0,3,80 
DATAO, 31, 80, 0,63, 80,0 
DAT A63 , 80 ,0,0,80,0,2 
DATA152,4B,2, 184,48,2,248 
DATA48, 15,232,48,2, 168,48 
DAT A2 , 1 68 , 240 , 1 , 87 , 1 92 , 3 
DAT A255 ,0,3,240,0,3, 252 
DATAO, 15, 12,0,60,60,0 
REM *** INDOGGY LEFT # 2 
DATA2, 160,0,2, 160,0,10 
DATA168 ,0,1,80,0,3,80 
DATAO, 31 ,80,0,63,80,0 
DATA63,80,C 
DATA 152, 192 
DATA192.2, 1 
DATA2, 168,1 
DAT A255 ,0,0, 240 ,0,0,* 
DATAO, 0,48, 0,0, 240,0 
REM *** INDOGGY LEFT 
DATA2, 160,0,2, 160,0,1 
DATA16S,0, 1 ,80,0,3,8C 
DATAO, 31 , 80, 0,63, 80, C 
DAT A63 , 80 , 0 , C 
DAT A 152, 48, 2, 184 ,48,2,2 



DATA48 

DATA2, 168,192,1,8: 

DAT A255, 0,3, 240, 0,3, 2! 
DATAO, 15, 15,0,60,3,0 
REM *** INDOGGY ON BII 
DATAO, 0,0,0, 112,0,0 
DATA1 12, 0,0, 112,0,0,1 
DATAO, O, 112,0,0,32,0 
DATAO, 112, 0,1, 172, 0,7 
DATA39,0,9,36, 128, 11,: 
DATA128, 10,2, 128, 12,1 
DATA4, 137,0,4, 137,0,4 
DATA249, 0,2, 2,0, 1,252 
DATAO, 0,1 12, 0,0, 11 2,0 



6B,2 



30130 

30131 

30132 

30133 

30134 

30135 

30136 

30137 

30138 

30139 

30140 

30141 

30142 

30143 



DAT A3 , 254 ,0,7, 255 ,0,3 
DAT A254 ,0,4, 1,0, 7, 7 
DATAO, 5, 253, 0,7, 255,0 
DAT A2, 250, 0,14,3, 128,8 
DATAO, 128,8,0, 128,9,60 
DATA128,9,32, 12B,9,32, 12E 
DATA9, 252, 128,8,36, 12B,B 
DATA36, 12B, 9, 22B, 128,8,0 
DATA128, 8,0, 128, 15,255, 12 

DATAO, 0,0, 0,0, 0,0 
DAT AO, 0,7, 255, 0,7, 255 
DATAO, 7, 255, 0,7, 255,0 
DATA 10, 2, 128, 15,255, 12B, 1 
DATA254 , 1 28 , 1 1 , 254 ,128,11 
DATA 1 28 , 1 1 , 254 , 1 2B , 1 1 , 25^ 
DAT A6 ,3,0,7, 255 ,0,7 
DAT A255 ,0,7,255,0,7, 255 
DATAO, 7, 255, 0,7, 255,0 
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PROGRAM LISTING 2 



0 REM *******•*•**•***•*••••**•****» 

1 REM **» ANDREW CLARKE ' S *** 

2 REM *** INDOGANA BONES IN *** 

3 REM **» RAIDERS OF THE *»* 

4 REM *** LAST BARK (C) 1986 *»* 

5 REM *** **» 

6 REM *** PART 2 / GAME PROGRAM *»* 

10 SC=0: FL=5: G0T0500 

12 V=5324B: AR=0: MSB=C>: BL=0: ES=0: Z=0: BN=5 
000:Q=1:PS=236 



4B IFJS=1 19THENX 1=X 1+5: IFD2<>1THENPS=230 
: Dl— 0: D2=l 

50 IFJS=1 18ANDY 1 >95THENYl=Yl-5s X 1=X 1+5: I 

FD2< > 1 THENPS=230s D 1 =0 s D2= 1 

52 IFJS=122ANDYl>95THENYl=Yl-5:Xl=Xl-5: I 

FD 1 < >1THENPS=233: D 1 = 1 : D2=0 

54 IFJS=121ANDYl<lB5THENYl=Yl+5: Xl=Xl-5: 

I FD 1 < > 1 THENPS=233 : D 1 = 1 : D2=0 

56 IFJS=1 17ANDYK 185THENY 1— Yl+5: X 1=X 1+5: 

IFD201THENPS=230:D1=0:D2=1 

5B IFJSO-127THENGOSUB2BO 



14 P0KE2040, PS :P0KE204 1,245 
16 P0KE2042,248: P0KE2043,246 
18 P0KE2044,246:P0KE2045,246 
20 P0KE2046 , 247 : P0KE2047 ,247 
22 POKE V+27 , 24B : POKEV+ 16,6s POKEV+39 , B 
24 P0KEV+37 , 0: POKEV+38 ,10: P0KEV+40 , 1 
26 F0RT=V+42T0V+46: POKET , 1 s NEXT 
2B POKEV+2 , 32 : POKE V+3 ,140s POKE V+4 1 , 8 
30 POKEV+6 , B8: POKEV+8 , 16B: POKEV+10,248 

32 POKEV+ 12,128: POKEV+ 1 4 , 208 : P0KEV+2B , 1 

33 POKEV+23 , 4 : POKE V+29 , 4 

34 X2=B2:Y2=131:X1=30:Y1=140 

36 POKEY , X 1 : POKEV+ 1 , Y 1 : POKEV+4 , X2 : POKEV+ 
5 , Y2 : GOSLIB 170 : G0SUB200 : P0KEV+30 , 0 
38 POKEV+2 1 , 255 : GOSUB300 : G0SUB2 1 0 : G0SUB4 
40 

40 JS=PEEK (56320) : POKEV, X 1 : POKEV+1 , Y1 
42 IFJS=126ANDYl>95THENYl=Yl-5 
44 IFJS=125ANDY1< 1B5THENY1— Yl+5 
46 IFJS=123THENXl=Xl-5: IFD1< >1THENPS=233 
:D1=1:D2=0 



60 G0SUB230: BN=BN-5: I FBN< 0THENBN=0 
62 IFMSB=OANDX 1 >255THENX 1 =X 1 -255: POKEV+ 1 
6, (PEEK (V+16> +1 ) :MSB=1: POKEV, XI 
64 IFMSB= 1 ANDX 1 < OTHENX 1 =X 1 +255 : POKEV+1 6 , 
(PEEK ( V+16) -1 ) : MSB-0: POKEV, XI 
66 IFMSB=1 ANDX1 >70THENX 1=70 
6B IFMSB=OANDX 1 < 2THENX 1 =2 

69 IF (BLJ-OANDX 1<70) THENGDSUB1B0 

70 CO=PEEK ( V+30) : IF (COANDl ) =1THENG0T0250 
72 I FBL >OTHENX 2=X 2—5 : IFX2<0THENP0KEV+16, 
(PEEK (V+16) -4) : X2=X2+255: Z=1 : POKEV+4, X2 
74 I FBL >OTHENBL=BL+ 1 s GOSUB 172 

76 IFZ=1ANDX2<40THENX2=40 

78 I FBL 50AND Y 1 -9 >Y2THEN Y2= Y2+4 

79 I FBL >OANDY 1 -9< Y2THENY2=Y2-4 

80 I FMSB=0AND (BL>0ANDX1< 10) THEN450 

82 I FES= 1 ANDX 1 >=40THENG0SUB400: GOTO 1 2 
84 POKEV+4, X2:P0KEV+5,Y2:GOTO4O 
100 PRINT"7J" : P0KE53280 , O : P0KE5328 1,0: POK 
E53272.23 

102 A*-" (#»»»**** 4 ,-l ~y \ — ♦ I L - Si 
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104 60SUB150 

106 At= " *tl * MESSAGE FROM k. UGH -OMMANDn 
REQUESTS" 

108 G0SUB150 

110 A*="THAT Iff HE FAMOUS ALL- ADVENTURING 
CANINE" 

112 GOSUB150 

114 A*— "HERO, a-.NDOGANA lONESn, 

BE HIRED" 

116 G0SUB150 

118 A$="TO HELP SAVE THE WORLD." 

120 GOSUB150 

122 A*="M U-EWARD IS TWO TINS OF “EDIG 
REE -HUM" 

124 GDSUB150 

126 A*="AND A BAG OF -HUM \IXER. " 

128 G0SUB150 

130 A*="*n I HIS TASK CALLS FOR ECOURAG 
E a AND Hi" 

132 G0SUB15O 

134 A*=" GREAT SKILL." 

136 GOSUB150 

138 Af="BK /Q ONE ELSE IS GOOD ENOUGH 
FOR US." 

■ 1-40 G0SUB150: PRINT : PR I NT SPRINT 
142 A*="3 '-'-TI#.'* HV'-* o — — 



230 Y3= V3+H 1 : POKEP 1 , Y3 
232 IFY3MB0THENG0SUB210: RETURN 
234 IFY3<99THENG0SUB2 10: RETURN 
236 RETURN 

250 IF (C0AND3) =3THENP0KEV+21 ,253: BL=1 : GO 

SUB200: G0SUB272: G0SUB274: G0T072 

252 I F ( COAND 1 ) = 1 THENG0SUB278 : G0SUB4O0 : GO 

T012 

260 RETURN 

270 POKE VO, 15: POKEWA, 129: POKEHF ,10: RETUR 

272 F0RT=1T0100: POKEHF, T: NEXT: POKEHF, 0:P 
OKEVO , 0 : SC=SC+1000 : RETURN 
274 POKEAT +7 , 32 : POKESU+7 , 255 : POKEWA+7 , 1 2 
9 : POKEHF+7 , 3 : POKEV+30 , 0 

276 POKEWA ,129: POKEVO ,15: POKEHF , 2 : RETURN 
278 G0SUB200 : FORT- 1 OOTO 1 STEP- 1 : POKEHF , T : 
NEXT : G0SUB290: RETURN 
280 PS=PS+Q 

282 IFD 1 O 1 ANDPS >23BTHENPS=237 : Q=-Q 
284 I FD 1 < > 1 ANDF'S< 236THENPS=237 : Q=-Q 
286 IFD201 ANDPS >241 THENPS=240 : Q=-Q 

288 IFD2<>1ANDPS<239THENPS=240: Q=— Q 

289 P0KE2040, PS: RETURN 

290 F0RC=54272T054296: POKEC , O: NEXT: RETUR 



ir^ 

1 44 GOSUB 1 50 : PR I NT : PR I NT : PR I NT " B" 

146 At=" NESS AGE ~ NDS ": GOSUB 1 

50: GOTO 158 

150 G0SUB2Q0:F0RT=lT0LENCAt> 

152 PRINTMID* ( At , T , 1 ) ; : IFMIDt < At ,T, 1)0" 
"THENG0SUB208 

154 F0RS=1T050:NEXT : POKEHF , 0: NEXT 
156 PRINT: RETURN 

158 PRINT"ikt»* «■■■*»»•■■»■»»»*»*» 



300 PR I NT" d" : P0KE532B0 , 0 : P0KE5328 1 ,2 
302 PRINT"M««enB» 

304 PRINT"7] aaa Hr sa a a ■ a 
a sh a " 

306 PR I NT " PIPIN 

■ »" 

308 PRINT" 

IOnb-Okb I " 

310 PRINT" 



I 160 I FPEEK ( 56320 ) = 1 1 1 THENG0SUB87 0 : PR I NT " 
I 73" : P0KE53272 ,21: GOTO 1 2 

I 162 GOT0160 

I 170 P*= " WISWSMrtek ■*«!" : Fl = 100: RETURN 
i 172 IFBL/9=INT <BL/9) THENPRINTPt; " aa B": 
P*=PS+ " M" : F 1 =F 1 +8 : I FF 1 > 1 80THENF 1 = 1 80 
174 IFLEN<P*)=23THENPRINT"«CL0SED":BL=0: 
EB-1: RETURN 
[ 176 RETURN 

180 IFYKF1ANDX1 >40THENX1— Xl+5 
182 RETURN 

I 200 F0RC=54272T054296: POKEC, 0: NEXT 

I 202 V0=54296: AT=54277:WA=54276 

l 204 SU=54278:HF=54273:LF=54272 

I 206 POKE AT, 32 :POKESU, 255: POKEWA, 33 

I 207 POKEVO, 15:RETURN 

I 20B POKEHF, 20: RETURN 

K 210 FORT=V+7TOV+1 1STEP2: POKET , 1B0: NEXT 

■ 212 POKEV+ 13,99: POKE V+ 15.99 

I 214 AR=AR+1: IFAR=6THENAR=1 

t 216 IFBL=0THENG0SUB270 

■ 218 IFAR=lTHENPl=V+7: Y3=180:Q1=-12 

■ 220 IFAR=2THENP1=V+13: Y3=99:Q1=12 

I 222 I.FAR=3THENPl=V+9: Y3=1B0:Q1=-12 

I 224 IFAR=4THENP1=V+15: Y3=99:Q1=12 

I 226 IFAR=5THENP1=V+1 1 : Y3=180: Q1--12 

■ 228 I F BL=OTHENPOKE VO , 0 

■ 229 RETURN 



2 PRINT" 
IB,B-B\« I" 

314 PRINT" 

316 PRINT" MSS 
SB as 
318 PRINT " B^S 
RETURN 

320 PDKE532B1, 
.■■a n 
322 PRINT 1 

324 PRINT 
326 PRINT 
328 PRINT 
330 PRINT 

332 PRINT 

a 

334 PRINT 

a 

3 PRINT 

a 

338 PRINT 




: PR I NT " rWrWUNi'WW I « ■ 




lain 
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mm 



& i 

Hi'; 

JlMc 



EK15 



Hi 



JFrr « 



Is 

fcefllsSz 



"551 



340 PRINT"«PPia -r aa 

34 1 F0RT=1 B64T02023 : POKET , 224 : POKET+5427 
2,5: NEXT 

342 V=5324B : POKEV+23 ,15: POKE V+29 , 1 5 
344 POKEV+28, 15: POKEV+16,2: POKEV+27, 4 
346 P0KE2040 ,249: P0KE2041 , 249: POKEV+32, 0 
348 P0KE2042 , 25 1 : P0KE2043 , 254 

350 PQKEV+39 ,15: P0KEV+40 ,15: POKE V+4 1 , 8 
352 POKE V+42 , 8 : POKEV , 80 : POKEV+ 1,182 
354 POKEV+2 , 2: P0KEV+3, 182: POKEV+5 , 176 
356 POKEV+4 , 255 : POKEV+6 , 1 00 : PQKEV+7 , 104 
358 P0KEV+3B, 10: POKEV+37 ,0: POKEV+21 , 15 
360 X=255 : B= 1 : 60SUB200 : B0SUB850 
362 B=B-1 
364 Q0SUB820 

366 IFINT (B/5>=B/5THENG0SUBB30: X=X-5: IFX 

< 22THENP0KE2042 , 253 : G0T0370 

368 POKEV+4 , X : G0TO362 

370 F0RT=1T0200: NEXT: P0KE2042 ,236 

372 PQKEV+27,0: Y=172: X=22 

374 IFY>T06THENY=Y-2 

376 IFY<126THENX=X+2 

378 GOSUB840 : POKEV+4 , X : POKEV+5 , Y 

3.80 G0SUB820: IFX=100THEN3B4 

382 Q0T0374 

384 POKEV+2 1,11: PQKE2043 , 239 

386 POKEV+27 ,8: POKEV+6 , 106: POKE V+7 , 120 

388 PQKEHF , 4 : POKEHF+7 ,2: A=0 

390 A=A+ 1 : I F A< 1 OOTHENGOSUBB20 : G0T0390 

392 G0SUB290 : G0SUB20O : G0SUBB60 

394 GOT0900 

400 POKEV+2 1 , 0 : PR I NT " d" : G0SUB290 

402 POKEV+33 , 0 : FL=FL- 1 

404 PRINT"S»»PPPPElYOU DIDN'T MAKE IT!" 

406 PRINT"flttPPPpn_IVES: 5" ; FL 

408 PRINT" JIPPPNnSCQRE: B" ; SC 

410 I FFL< =0THEN420 

412 PRINT" HUH M P laaPRESS FIRES EfTO GO AGA 
IN" 

414 IFPEEK (56320) = 1 1 1THENRETURN 

416 G0T0414 

420 FQRT=1T01000: NEXT 

422 PRINT "dHHSPPPPP SHARD LUCK 6IND0GANA! 

424 PRINT"*lB*»»»»nSCORE:fc.";SC 

426 PRINT" HfppppPiSaPRESS FIRES TO PLAY" 

42B PRINT":PPPPna'Q' TO ENDS' 

430 GETA*: IFA*="Q"THENEND 

432 I FPEEK ( 56320 >=111 THENCLR : RUN 1 0 

434 G0T0430 

440 PRINT"»PPPPBSCORE:Q":SC 

442 PR I NT " a:* ■ * * P SL I VES : B" ; FL : RETURN 

450 POKEV+21 , 0 : PR I NT " IT" : POKEV+33 , 0 : P0KE5 

3272,23 

452 PRINT":««»ia"; 

454 a*=" a****** a* 

#****" ..BOSUBl 50 

456 A*="*M EIIOU HAVE GAINED POSSESION 0 
F THE" : G0SUB150 

458 A*=" LONG =*-OST I ONE TF I HE 9EVEN I A 
RK I NG" : G05UB 150 

460 A*=" -OGS d" : G0SUB150 

462 A#=":«Bl ,'OW YOU CAN HELP UGH — OMMAN 
D,FOR THE " : GOSUB 1 50 



■” GYPT HAS BEEN 
I IS AT THE MOME 



464 A*=" AGE OLD IAF 
DUG UP": GOSUB 150 
466 A*=" BY THE /AZ 
NT JUST": GOSUB 150 

468 A*=" ->-l I MILES FROM WHERE YOU ARE. 
": GOSUB 150 

470 A*="MS E»0 REV UP YOUR MOTORBIKE AN 
D GO" :GOSUB150 

472 A*=" GET THAT TRUCK, '.NDOGANA I ONES ! ! 

! ": GOSUB 150 

474 A*="MBM B STRESS -IRES" : GOSUB 150 
476 IFPEEK (56320) Oil 1THEN476 
478 PR I NT " d" : P0KE5327 2,21 : BOT0600 
500 PR INT"dM" : P0KE53280 , 0 : P0KE532B 1 , 0 
502 PR I NT "EPICS' a" 

504 PRINT" El a " 

506 pr i nt " bi as a-^asa s y 

sss^sasasar a- 

sob print" ei a ss a a s a s a s a 

sasas asasa asasa" 

510 print"Ei a bi a saa sasas 
asasas a sa saa s a 
512 print”ei aa a s aa s a s aa 

^■aa as a s a s a s aasasa" 

514 PRINT" a " 

516 PRINT" a " 

518 PRINT"«[»PPPI:r a" 

520 PRINT"! 

522 PRINT"! 

524 PRINT"! 

a S a S 

526 PRINT"! 

a s a s 

528 PRINT"! 

aa s a s 

530 PRINT"! 



ppraa 



532 PRINT” MOME 
534 FORT = 1 TQ2000 : NE X T 
536 PRINT": 

538 PRINT"! 

540 PRINT"! 

542 PRINT"! 



544 PRINT"! 
546 PRINT"! 
548 PRINT"9 

a s a s 

550 PR I NT "E 

sr aa sr a 

552 PRINT 



la bp 



556 PR IN- 

558 PR I NT "» PI 
a " 

560 PRINT"! 

562 PRINT"!) 

aa wr" 

564 PRINT": 
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0 



5U 

AA 1 



wt- 






to 



[HNMMN 

lATfll ■ - “ItfJi I /J I xr.ir "ii.i«r^i an i.T-riftStl^ I 



^tr^isr^aa^" 

PRiNT":*»ia a a a a a a a as 
eaaaaaaaaaaar ar" 
PRiNT". r 5i»ia s a a -*a a a 

a a a a a a -a" 

PRiNT"**ia a aaaa aaaa 
aaaaaaaa ^ a a^a -a" 
PRiNT"3*»na ar a a a a ^a ^ a a 
ar a a a a a saa a a a aa " 

PRINT: FORT- 1 T03000 : NEX T 
PRINT" •LPJrWflsIf'WfKiflUHJWslPli'Ii'W’' 

PRINT"® BY" 

PRINT"EI ANDREW CLARKE" 

PRINT"*® (EC®) 111986 " 

FORT= 1 T02000 : NE X T : SOTO 1 00 
B0T0599 

SC=SC+FL* 1 00 : PRI NT " mOMMS" : G0SUB290 
PR I NT " « * * * » CTSCORE : Bl" ; SC 
PRINT"«»»»*BLIVES:iir;FL 
FORT= ITO 1000: NEXT: DI-0 
V=5324B : P0KEV+2B , 0 : POKEY* 16 , O': PRINT " 

POKEV+27 , 0 : POKEV+33 , O : POKE V+32 , 0 
A= 1 034 : B= 1 054 : FDRT= 1 T024 
POKEA ,102: POKEA+54272 , 2 
POKED ,102: POKEB+54272 , 2 
A— A+40: B=B+40: IFA>20230RB>2023THENEN 

NEXT : POKEV+23 , 254 : P0KEV+29 , 254 
POKE2040 , 242: P0KE2041 , 243 
P0KE2042 , 244 : P0KE2043 , 244 : P0KE2044 , 2 

X 1= 1 80 : Y 1 =200 : Y2=0 : POKEV+2 ,180: POKEY 
+3,Y2 

630 Y3=225: Y4=55: Y5=140:SP=0: B0=200 

632 POKEV, XI: POKEY* 1,Y1 

634 POKEV+5 , Y3 : POKE V+7 , Y4 : POKEY+9 , Y5 

636 P 1 =V+4 : G0SUB700 : P 1 =V+6 : GOSUB700 : P 1 =V 

+8:G0Sl)B700 

638 POKE V+21 ,31: POKE Y+30 , O : G0SUB200 : POKE 
WA,33 

650 JS=PEEK (56320) 

652 IFJS=126THENSP=SP+1: IFSP>25THENSP=25 

654 IFJS=125THENBP=SP— 1 : IFSP<0THENSP=0 

656 I F JS=1 19ANDX 1 <248THENX 1 =X 1 *8 

658 IFJS=123ANDX 1 >108THENX1=X1— 8 

660 IFJS=1 10ANDY1 >60THENY1=Y1-B 

662 IFJS=109ANDY1<230THENY1=Y1+B 

664 I FCK=0THENG0SUB7 1 0 : BQ=BO- 1 : I FBO< OTHE 

NB0BUB400 : B0T06 1 0 

666 DI=DI+SP: IFDI >5000THENCK=1 : G0T0740 
668 CO=PEEK ( Y+30 ) : IF ( CBAND 1 ) = 1 THEN800 
670 PRINT"c*nTIME :a";BO;"ll " 

672 PRINT"JS»JinBPEED: S"; INT(SP*4) : "II " 

674 PRINT"S»W»EJ1ILES: a": INT(DI/100> ; "II " 
676 SC=SC+INT(BP> 

680 G03UBB 1 O : PQKEV , X 1 : POKEY* 1 , Y 1 : POKEV+3 
,Y2:G0TO650 

700 X3=INT< ( 230-1 04 )*RND(1> )+104 
702 P0KEP1 ,X3: RETURN 

710 Y3=Y3+SP: I FY3>255THENY3=0: POKEV+5, Y3 
: P 1 = Y+4 : 60SUB7 00 
712 POKEV+5, Y3 

714 Y4=Y4+SP: IFY4>255THENY4=0: POKEV+7 , Y4 
: P 1 =V+6 : BQSUB7 00 




716 POKEY+7, Y4 

718 Y5=Y5+SP: IFY5>255THENY5=0:P0KEV+9,Y5 

: Pl=V+8: B0SUB700 

720 P0KEV+9,Y5: RETURN 

740 PBKEV+21 ,3: Y2=Y2+3 

742 IFY2 >2 1 0THENY2=21 0 

744 B0T066B 

800 IFCK=0THENG0SUB278: G0SUB400: BQT0610 
802 IFCK=1 THENG0SUB272: POKEV+21 , O: BOT032 
0 

810 I FSP< 5THENN0=2 

812 I FSP= >5ANDSP< 1 0THENN0=3 

814 I FSP= > 1 OANDSP< 20THENN0=4 

816 IFSP=>20THENN0=6 

818 PBKEHF, NO: RETURN 

820 IFPEEK (2040) =249THENP0KE2040 , 250: POK 
E2041 , 250: RETURN 

822 PDKE2040 , 249 : P0KE204 1 , 249 : RETURN 
830 I FPEEK ( 2042 ) =251THENPQKE2042 , 252 i RET 

B32 PQKE2042,251: RETURN 

840 I FPEEK ( 2042 ) =236THENP0KE2042 , 237 : RET 
URN 

842 I FPEEK ( 2042 ) =237THENPBKE2042 , 238 : RET 

844 I FPEEK ( 2042 ) =238THENP0KE2042 , 236 : RET 
URN 

846 RETURN 

B50 POKE AT +7 , 32: PBKESU+7 , 255 : POKEWA+7 , 65 
852 PDKELF+ 10,8: POKEHF+7 , 1 : POKEHF , 2 
B54 RETURN 
860 F0RT=1T030 
862 F0RS=1T010 

864 POKEHF , T : POKEHF , S : NE XT : NEX T 
866 G0SUB290: RETURN 
B70 PRINT" r»IeM(»* MET ; 

872 A*=“ MEANWHILE, IN *OUTH AMERICA 

" : G0SUB150: GBSUB290 

874 F0RT=1T02000:NEXT: RETURN 

900 POKEV+21 , 0: PR 1 NT " n" : POKEV+33 , 0 : P0KE5 

3272,23 

902 PR I NT " WM *13" : 

904 A*=" *»**»**« EcrU- “TV", *w^TT */*! a 
**«**» "-.60SUB 150 

906 A*="KB niOU HAVE RESCUED THE AGE OL 
D SH I ONE " : G05UB 1 50 

908 A*=" TT “BYPT rFROM THE AAZI CONVOY. 
" : B0SUB150 

910 A*="W« a I0UR REWARD INCLUDES a 5000 
POINT" :BOSUB 150 

912 A*=" I ONUS " : B0SUB150 

<?14 Ai= " *M :*LSO FOR SERVICES RENDERED 
YOU ARE " : BOSUB 1 50 

916 A*=" TO BE AWARDED THE ETOGTINGUISHE 

D ‘^EDAL " : GOSUB 1 50 

918 A*=" -OR XALOUR. . BOSUB 150 

920 A*="*»M ®a"FESS -IRE -OR -INAL IRIE 

F I NBB" : GOSUB 1 50 

922 IFPEEK (56320) < >11 1THEN922 

924 PR I NT " 21" : PQKE5327 2,21 

926 A*=" »»«**** HRESULTS OF MISSION a 

*»**»*" : BOSUB 1 50: SC=SC +5000 

92B G0T0424 

READY. 





10 REM SPACE BASE 
20 REM FOR COMPUTER GAMER 
30 REM <C> CHRISSOFT 1986 
40 REM DEDICATED TO ADRIAN M. 

50 GOSUB 1850 
60 REM MACHINE CODE 
70 REM GETS CHAR 

80 M=0 : A*=" DD6E00DD660 1 E5CD60BBE 177C9" : F 
OR 1=1 TO LEN (A* > STEP 2:M=M+1:P0KE 19999 
+M,VAL("«."+MID*(A*, 1,2) > : NEXT 
90 REM GETS KEY NO 

1 00 a«="dd6e00dd660 1 e53e00F5cd 1 ebb 2008 i 1 
3cfe5020f 418-fOf Iel77c9" s m=0: FOR i = l TO L 
EN(aS) STEP 2:m=m+l:P0KE &74FF+m, VAL ( '*&" 
+MID* (a*, i ,2) > : NEXT 

110 REM ALLOPHONE - SPEECH CONVERTOR 
120 a*="01fefbdd7e00fef T2814ed79dd23dd23 
f 53e00763c f e202802 IBf 8-f 1 1 8e53e00ed79c9 “ 
130 ro=0: FOR i=l TO LEN (a*) STEP 2:m=m+l: 
POKE &6FFF+m , VAL ( "&"+MID* <a*, i , 2) > : NEXT 
140 REM SET PEN 15 TO ALTERNATING COLOUR 
S 

150 a*="213a5O0681 1 1 Id50cdefbc2134501 134 
000 1 3400c3e9bc2 1 3450c 3e9bc3a33503c i e 1 ac 2 
28503e01323350474f3e0fcd32bcc90 100000000 
OOOOOOOOOOOOOOOOOO " 

160 m=0: FOR i=l TO LEN (a*) STEP 2:m=m+l:P 




OKE S.4FFF+m,VAL(‘'g,“+MID*(a*, i,2) ) : NEXT 
170 CALL *<5000 
180 CALL &BBFF 

190 M=0: A*=“0200 GAMER 0150 

0100 CHRISSOFT 0075 0050 G 

AMER 0040 0030 CHRISSOFT 002 

O 0010 GAMER 0005 

200 FOR 1=1 TO LEN (A*) STEP 15: M=M+1 : HS* ( 

M)=MID*(A*, I, 15) : NEXT 

210 RANDOMIZE TIME: RESTORE 

220 ENV 3,1,12,1,1,0,5,12,-1,2 

230 ENV 1, 16,-1, 10 
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240 ENT -2,25,2, 1,27, -2, 1:ENV 2,16,-1,20 

250 ENT —3, 1 , 1,4: ENV 7,11,-1,20 

260 GOSUB 1880 

270 GOSUB 560 

280 GOSUB 760 

290 GOSUB 1900: GOSUB 350 

300 GOSUB 1450: CALL 8. BUM 7 

310 GOSUB 1810 

320 FOR D0=1 TO SPL: GOSUB 1550: GOSUB 880 
: GOSUB 1060: NEXT 

330 GOSUB 1150: IF RND*10< ( (mo/2) + (SKL/ 10 

*6) ) — 1 AND < va<21 > THEN GOSUB 1520 

340 GOTO 320 

350 REM setup screen 

360 CALL 8.BCA7 

370 MODE O 

380 PRINT CHR* < 22) CHR* (1) 

390 INK 0,0: BORDER O 
400 PEN 7 

410 PRINT CHR*(23)CHR*(1> 

420 FOR i=l TO 20: LOCATE l,i: PRINT CHR* ( 
199) : NEXT 

430 LOCATE 1,1: PRINT STRING* (20, 196) ; 

440 FOR i=l TO 20: LOCATE 20, i: PR I NT CHR* 
(197) ; : NEXT 

450 PRINT CHR* (22) CHR* (O) 

460 PEN 1: LOCATE 1,20: PRINT CHR*(143):L0 
CATE 18, 20: PRINT CHR* (214) CHR* ( 143) CHR* ( 
143) 5 

470 LOCATE 1,21:PRINT STRING* (3, 143) : LOC 
ATE 18, 21: PRINT STRING* (3, 143) ; 

480 PEN 9: LOCATE 1,23:PRINT STRING*(20,2 
08) ; 

490 PEN 10: FOR i=2 TO 19 STEP 3: LOCATE i 
, 24: PRINT CHR* (217) CHR* (218) CHR*(219) ; :N 
EXT : LOCATE 1,24:PRINT CHR* (219) ;: LOCATE 
20,24: PRINT CHR* (217); 

500 PEN 15: PRINT CHR* (22) CHR* ( 1 ) : FOR 1=3 
TO 19 STEP 3: LOCATE I, 24: PR I NT CHR* (220 
) ; : NEXT I:PRINT CHR* (22) CHR* (O) 

510 PEN 3: LOCATE 1,25: PRINT" O *** 

+++ 00 " ; 

520 PEN 4: LOCATE 1 , 22: PRINT"*" : PEN 5: LOC 
ATE 20, 22: PRINT"*" ; 

530 PEN 2: LOCATE 2, 20: PRINT CHR* (224) CHR 
*(225) 
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540 PEN 3: PRINT CHR* (22) CHR* ( 1 >: LOCATE 2 
, 20: PRINT CHR* (223) ; CHR* (22) CHR* (0) 

550 RETURN 

560 REM set chars 

570 SYMBOL AFTER 32 

580 SYMBOL 208, 8.FF, 8.FF, 8.FF, 8.FF 

590 SYMBOL 217, 8.1 , 8.7, 8.1F , 8.3F , S.FF, 8.C3, 8.C3 

, 8.FF 

600 SYMBOL 218, 8.C3.8.81 , 8.81 ,8.0, 8.C3.S.E7, S.E 
7, 8.FF 

610 SYMBOL 219, 8.80, &E0, 8.F8, 8.FC, 8.FF, &C3, 8. 
C3.8.FF 

620 SYMBOL 220, 8.0, 8.18, 8.3C, S.3C, 8.18 

630 SYMBOL 42, 8.18, 8.18, ttl8, 8.3C, 8.24, 8.66, 8.4 

2,8<7E 

640 SYMBOL 43, 8.0, 8.F, 8.F, 8.C, 8.7F, 8.7F, 8.7F, 8.4 
9 

650 SYMBOL 226, 8.18, 8i3C, 8.66, 8<3C, 8<18, 8.3C, 8< 
66,8.42 

660 SYMBOL 227, 8.3C, 8.7E, 8.DB, 8.7E, 8.3C, 8.18, 8. 
18,8.18 

670 SYMBOL 228, 8.0, 8.18, 8.3C, 8.7E, 8.E7, 8.E7, 8.6 

6.8.24 

680 SYMBOL 229, 8.0, 8.18, 8.3C, 8.7E, 8.C3, 8.E7, 8.C 
3,8.81 

690 SYMBOL 191,8.18,8.24,8.42,8.24,8.18,8.24,8. 

42.8.24 

700 SYMBOL 190, 8.18, 8.20, 8.C0, 8.70, 8.E, 8.3, 8.C, 
8.18 

710 SYMBOL 224,0, 0, 8.3F, 8.7F,8<FF, 8.18, 8.3C, 8. 
7E 

720 SYMBOL 225, O, O, 8.CO,8<FO,8.FC 

730 SYMBOL 223, O, O, 0,0, 0, 8.18, 8.3C, 8.7E 

740 SYMBOL 222, 0,0, 8.FF, O, 8.FF, O, 8.FF 

750 RETURN 

760 REM INKS 8. KEYS 

770 KEY DEF 76,0,13 

780 SPEED INK 6,6 

790 INK 2,2 

800 INK 4, 15: INK 5,25 

810 INK 6,11 

820 INK 7,26 









830 INK 9, 18 
840 INK 10,11 

850 INK 11,26,24: INK 12,9, 18: INK 13,2,11 
: INK 14,6,3 
860 INK 15,24,0 
870 RETURN 
880 REM laser 
890 left 

900 IF INKEY <kl>=-l THEN 930 ELSE LOCATE 
hi , 22: PRINT" "5: IF hl=h2 THEN PEN 5:L0C 
ATE h2,22:PRINT"+“! 

910 hl=hl— 1 : IF hl<l THEN hl=l 
920 PEN 4: LOCATE hi, 22: CALL 8.BD19: PRINT" 
*" ; : GOTO 960 

930 IF INKEY (k2)=-l THEN 980 ELSE LOCATE 
hi , 22: PRINT" ";:IF hl=h2 THEN PEN 5:L0C 
ATE hi , 22: PRINT"+" ; 

940 hl=hl+l: IF hl>20 THEN hl=20 
950 PEN 4 : LOCATE hl,22:CALL 8.BD19: PRINT" 
*"5: GOTO 960 
960 REM check dwn 

970 LOCATE hl,23:CALL 20000, @t: IF t<>32 
THEN RETURN ELSE LOCATE hi, 22: PR I NT" ";: 
LOCATE hi , 23: PEN 4: PRINT"»" ; : GOTO 1620 
980 IF INKEY <k3) =— 1 OR <hl<4 OR hl>17>TH 
EN RETURN 

990 PEN 6: FOR i=21 TO va STEP -1: LOCATE 
hi-fi s PRINT CHR* ( 191 ) ; : NEXT 
1000 FOR i=21 TO va STEP -1:L0CATE hi. It 
PRINT" " ; : NEXT : IF hl=ha THEN 1020‘kill i 

IOIO en=en— 3: IF EN<1 THEN EN=0:G0T0 1620 
ELSE GOTO 1810 

1020 ki=ki+l:IF ki=25 THEN GOSUB 3230 
1030 sc=sc+3: sc=sc+mo: PEN 3: LOCATE 2,25: 
PRINT USING "####" 5 sc: IF RND<0.9 THEN 14 
50 

1040 IF RND>0.5 THEN CALL 8.7000,255,17,2 
4,37,0,21,0,30,61 ELSE CALL 8.7000,255,11 
,15,33,0,35,7,46 
• , 1050 GOTO 1450 

1060 REM REPAIR CRAFT 

1070 IF INKEY <k4)=-l THEN 1100 ELSE LOCA 
TE h2, 22: PRINT" ";:IF hl=h2 THEN PEN 4:L 
OCATE hi , 22: PRINT"*" ; 

1080 h2=h2-l: IF h2<l THEN h2=l 

1090 PEN 5: LOCATE h2, 22: CALL S.BD19: PRINT 

"+"5: RETURN 

1100 IF INKEY (k5)=— 1 THEN 1130 ELSE LOCA 
TE h2, 22: PRINT" "5: IF hl=h2 THEN PEN 4:L 
OCA I E hi, 22: PRINT"*" ; 

1110 h2=h2+l: IF h2>20 THEN h2=20 

1120 PEN 5: LOCATE h2, 22: CALL 8.BD19: PRINT 

"+";: RETURN 

1130 IF INKEY (k6)=— 1 THEN RETURN ELSE LO 
CATE h2, 23: PEN 9:PRINT CHR*(208>s 
1140 RETURN 
1150 REM him move 
1160 LOCATE ha, va: PRINT" " 

1170 IF va=22 AND ha=hl THEN 1230 ELSE I 
F va=22 AND ha=h2 THEN 1310 
1180 VA=VA+ 1 : IF VA>22 THEN 1400 
1190 IF RND>0.5 OR va=21 THEN 1210 
1200 ha=ha+INT <3»RND> -1 : IF ha<5 THEN ha= 
5 ELSE IF ha>16 THEN ha=16 
1210 PEN 10+mo: LOCATE ha,va:CALL 8.BD19:P 
RINT CHR*(225+mo> 

1220 RETURN 

7a 

r_ 



— 

1230 REM mel die 
1240 EN=99:EL=0: GOSUB 1810 
1250 CALL 8.7000,255,50,32 
1260 1 1=11-1 : hl=l 

1270 PEN 3: LOCATE 8, 25: PRINT" " ; : LOCAT 

E 8, 25: PRINT STRING* ( 11, "*") 5 

1280 IF 11=0 THEN 1620 

1290 PEN 4: LOCATE 1 , 22: PRINT"*" ; 

1300 GOTO 1430 
1310 REM me2 die 
1320 EN=99:EL=0: GOSUB 1810 
1330 CALL 8.7000,255,50,31 
1340 12=12— l:h2=20 

1350 PEN 3: LOCATE 13, 25: PRINT" " ; : LOCA 
TE 13, 25: PRINT STRING* ( 12, "+") ; 

1360 IF 12=0 THEN 1620 

1370 SOUND 2,300, 100, 15, ,4 

1380 PEN 5: LOCATE 20, 22: PRINT"*" ; 

1390 GOTO 1430 
1400 REM ** 

1410 IF va>23 THEN 1620'die 

1420 LOCATE ha, 23: CALL 20000, St - /. : IF t=32 I 
THEN 1 620 'die 

1430 SOUND 2,0, 100, 15, 1, ,31:F0R i=l TO 1 I 
5: LOCATE ha,va:PEN i : PRINT CHR* (23B) j : NE I 
XT : LOCATE ha,va:PRINT" ";:GOTO 1450 
1440 RETURN 
1450 REM send 

1460 SOUND 1, 100, 100, 14, 2, 2: en=en+l: IF e I 
n>99 THEN en=99 
1470 GOSUB 1810 

1480 mo=INT(4*RND)+l: IF mo=0 THEN mo=l 
1 490 ha= ( 13*RND ) +4 : va=2 

1500 LOCATE ha,va:FEN mo+10:PRINT CHR* (m I 

0+225) 5 

1510 RETURN 

1520 REM he fires 

1530 en=en— 1 : IF en<l THEN 1620 ELSE GOSU I 
B 1810 

1540 PEN 8: FOR i=va+l TO 23: LOCATE ha, i: 

PRINT CHR* ( 190) ;: NEXT: FOR i=va+l TO 23:L I 
OCATE ha, i : PRINT “ "5:NEXT:IF ha=hl THEN I 
1230 ELSE IF ha=h2 THEN 1310 ELSE RETUR I 

1550 REM laser 

1560 IF INKEY <k7)=-l THEN RETURN 
1570 SOUND 2,2000,30,15,1 

1580 en=en— 10: IF end THEN en=0:G0T0 162 I 
O ELSE GOSUB 1810 

1590 PEN 3: FOR i=4 TO ha: LOCATE i,20:PR I 
INT CHR* (222) ; :NEXT : FOR i=4 TO ha: LOCATE I 
i, 20: PRINT" ";:NEXT 
1600 IF va=20 THEN sc=sc-3:G0T0 1020 
1610 RETURN 
1620 REM die 

1630 PRINT CHR* (22) CHR* (O) 

1640 CALL 8.BCA7 

1650 GOSUB 1810 

1660 SPEED INK 2,2 

1670 SOUND 7,0, 120, 15, 1, , 10 

1680 INK 10,6,0 

1690 FOR i=10 TO 26: FOR d=l TO 50: NEXT d 

: BORDER i : INK 0,i:NEXT i 

1700 FOR i=l TO 5:S0JJND 1 , 50* i , 100, 15, 1 : 

SOUND 4, 75* i , 100, 15,1: NEXT i:i=i-2 
1710 SOUND l,50*i, 100, 15, 1: SOUND 4,75*i, 

100, 15, 1: i=i+2 

1720 SOUND l,50*i, 100, 15, 1: SOUND 4,75*i, 
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100,15,1 

1730 FOR i = l TO 10: IF VAL (LEFT* (hs* ( i > , 4 
>><sc THEN 1750 
1740 NEXT: GOTO 1800 

1750 FOR j=10 TO i+1 STEP -1 : hs* < j ) =hs* ( 
j-1 ) : NEXT : hs* < i > ="0000" : hs* ( i ) =LEFT* (hs* 

( i > , 5-LEN (STR* (sc ) > ) +RIGHT* (STR* (sc) , LEN 
(STR*(sc> ) -1 ) :hs* ( i)=hs*( i > + “ '• 

1760 CALL *7000, 255, 11,20, 16,0,58,25,0,5 
1,7, 13, 11,7 

1770 CALL *BFF9, *C9, *1 CED , *CFOO 
1780 PEN 3: LOCATE 1,1: INPUT "YOUR NAME:" 
,N*:IF LEN (N*) >10 THEN N*=LEFT * ( N* , 1 O ) 
1790 hs*(i)=hs*(i)+n* 

1800 FOR d=l TO 3500: NEXT: GOTO 210 
1810 REM disp en 

1820 PEN 3: LOCATE 18, 25: PRINT USING "##" 
i en 

1830 IF en>20 OR ELOO THEN RETURN ELSE 
CALL *7000,255,53,45,0, 19,38,52,7, 11,7:E 

1840 RETURN 

1850 REM vars 

I860 DEFINT h, v, k, m, 1 , t 

1870 h 1 = 1 : h2=20 :kl=74:k2=75: k3=76 : k 4= 1 6 : 
k5=79: k6=47:k7=21:mo=0: 11=3: 12=3: t=0:en= 
99 : SKL= 1 : SPL= 1 O 

1880 hl=l : h2=20: t=0: en=99: EL=0: SC=0: Ll=3 

:L2=3:ki=0 

1890 RETURN 

1900 REM ini t 

1910 MODE O 

1920 GOSUB 350 

1930 PEN 3: LOCATE 5, 4: PR I NT "SPACE BASE. 

" : PEN 2: PRINT CHR* (22) CHR* ( 1 >: LOCATE 5,4 
: PRINT STRING* (12, CHR* (95) ): PRINT CHR* (2 
2) CHR* (O) 

1940 CALL *7000,255,43,20,63,0,55,20,3,5 
5,0,31, 13,0, 16,15,42,62,7,46 
1950 CALL *BFF9, *C9, *1CED, *CF00 
1960 FOR i=l TO 4:L0CATE 5, i*3+5:PEN 10+ 

i: PRINT CHR* (225+i ) ; " i 5 "PTS. " : NEX 

T 

1970 GOSUB 3120 

1980 FOR i=l TO 1500: IF INKEY*<>"" THEN 
RETURN 

1990 NEXi 
2000 GOSUB 2120 
2010 MODE 0 
2020 GOSUB 350 

2030 PEN 5: LOCATE 5, 2: PR I NT "SPACE BASE. 

" : PEN 1: PRINT CHR* (22) CHR* ( 1 ): LOCATE 5,2 
: PRINT STRING* ( 12, CHR* (95) ): PRINT CHR*(2 
2 ) CHR* < 0 ) 

2040 PEN 9: LOCATE 3,5:PRINT CHR* i 164) “ C 
HRISSOFT 1986" 

2050 PEN 15: FOR 1=1 TO 10:L0CATE 4,I+8:P 
RINT HS* ( I ) : F'EN 1:NEXT 

2060 FOR 1=1 TO 5: SOUND 1,50*1,100,15,1: 
SOUND 4,75*1, 100, 15, 1:NEXT i:i=i-2 
2070 SOUND 1 ,50*1, 100, 15, 1: SOUND 4,75*1, 
100, 15, 1: i=i+2 

20B0 SOUND 1,50*1, IOO, 15, 1: SOUND 4,75*1, 
100, 15, 1 

2090 FOR 1=1 TO 8000: IF INKEY*,-"" THEN 

RETURN 

2100 NEXT 

2110 RETURN 
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2120 REM 
2130 MODE 0 

2140 PEN 3: LOCATE 5, 1 : PRINT "DEFINE KEYS. 
” : PEN 1 : PR I NT CHR* (22) CHR* ( 1 ): LOCATE 5,1 
: PRINT STRING* ( 12, CHR* ( 95) ) : PRINT CHR*(2 
2) CHR* (O) 

2150 PEN 9: LOCATE 2, 4: FRINT"DEFENCE CRAF 
T : " : PEN 6: LOCATE 8, 6: PRINT"LEFT _" : LOC 
ATE 8, 8: PRINT"RIGHT : LOCATE 8, 10:PRIN 
T"FIRE : PEN 7:L0CATE 2, 12: PRINT"REPA 

IR CRAFT : " : F'EN 8: LOCATE 8, 14: PRINT"LEFT 
_" : LOCATE 8, 16:PR1NT"RIGHT LOCATE 
8, 18 

2160 LOCATE 8 , 1 8 : PR I NT " REPA I R _•• : LOCATE 

2, 20: PEN 10: PR I NT "FIRE LASER- 

2170 CALL *BFF9 , *C9 , * 1 CED , *CFOO 

2180 GOSUB 2590: GOTO 2550 

2190 CALL *BFF9 , *C9 , * 1 CED , *CFOO 

2200 CALL *7500, @K1: I1*=INKEY* 

2210 LOCATE 15, 6: F'EN 3+IKK16 OR Kl=20>: 
PRINT II*; 

2220 IF k 1=9 THEN LOCATE 15, 6: PR I NT "COPY 
" ELSE IF kl=6 OR kl=18 THEN LOCATE 15,6 
: PR I NT "ENT" ELSE IF kl=21 THEN PRINT"SHF 
T" ELSE IF Kl=79 THEN LOCATE 15, 6: PRINT" 
DEL" 

2230 IF Kl=23 THEN PRINT "CTRL" ELSE IF K 
1=16 THEN PRINT"CLR“ ELSE IF Kl=47 THEN 
LOCATE 15, 6: PR I NT" SPC" ELSE IF Kl=70 THE 
N PRINT"CF'S" ELSE IF Kl=68 THEN LOCATE 1 
5, 6: PR I NT "TAB" 

2240 IF Kl>71 AND Kl<78 THEN PEN 1 : LOCAT 
E 15, 6: PRINT MID* ("UP DOWNLEFTRGHTF I REF 
IRE", ( (Kl— 72)*4) +1,4) 

2250 CALL *7500, @K2: I2*=INKEY*: IF K2=K1 
THEN 2250 

2260 LOCATE 15,B:FEN 3+(K2<16 OR K2=20>: 
PRINT 12*; 

2270 IF k2=9 THEN LOCATE 15, 8: PR I NT "COPY 
" ELSE IF k.2=6 OR k2=18 THEN LOCATE 15,8 
: PRINT"ENT" ELSE IF k2=21 THEN PRINT "SHF 
T" ELSE IF K2=79 THEN LOCATE 15, 8: PRINT" 

2280 IF K2=23 THEN PRINT"CTRL" ELSE IF K 
2=16 THEN PRINT-CLR" ELSE IF K2=47 THEN 
LOCATE 15,8: F’RINT"SPC" ELSE IF K2=70 THE 
N PRINT" CPS" ELSE IF K2=68 THEN LOCATE 1 
5,8: F’RINT"TAB" 

2290 IF K2>7 1 AND K2<78 THEN PEN 1 : LOCAT 
E 15, 8: F’RINT MID*("UF' DOWNLEFTRGHTF I REF 
IRE", ( (K2— 72) *4) +1,4) 

2300 CALL *7500, @K3: I3*=INKEYS: IF K3=K2 
OR K3=K1 THEN 2300 

2310 LOCATE 15, 10: PEN 3+(K3 <16 OR K3=20) 

: PRINT 13*; 

2320 IF k3=9 THEN LOCATE 15, 10: PRINT'VCOP 
Y" ELSE IF I- 3=6 OR k3=18 THEN LOCATE 15, 
10: F’R I NT " ENT " ELSE IF k:3=21 THEN FRINT"S 
HFT" ELSE IF K3=79 THEN LOCATE 15, 10:PRI 
NT "DEL" 

2330 IF K3=23 THEN F'RINT"CTRL" ELSE IF I 
3=16 THEN PRINT"CLR" ELSE IF K3=47 THEN 
LOCATE 15, 10:PRINT"SPC" ELSE IF K3=70 TH 
EN PRINT "CPS" ELSE IF. K3=6B THEN LOCATE 
15, 10: PRINT "TAB" 

2340 IF K3> 7 1 AND 1378 THEN PEN 1:L0CAT 
E 15, 10:PRINT MID*("UP DOWNLEFTRGHTF IRE 
FIRE”, < <K3-72)*4) + l,4> 
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2350 CALL 8.7500, @K4: I4*=INKEY*: IF K4=K3 
OR K4=K2 OR K4=K1 THEN 2350 
2360 LOCATE 15, 14: PEN 3+<K4<16 OR K4=20> 
: PRINT 14*; 

2370 IF k4=9 THEN LOCATE 15, 14: PRINT "COP 
Y" ELSE IF k4=6 OR k4=18 THEN LOCATE 15, 
14: PRINT "ENT" ELSE IF k4=21 THEN PRINT"S 
HFT" ELSE IF K4=79 THEN LOCATE 15, 14:PRI 
NT "DEL" 

23B0 IF K4=23 THEN PRINT "CTRL" ELSE IF K 
4=16 THEN PRINT"CLR " ELSE IF k4=47 THEN 
LOCATE 15, 14: F'RINT"SPC" ELSE IF K4=70 TH 
EN PRINT"CPS" ELSE IF K4=6B THEN LOCATE 
15, 14: PRINT"TAB" 

2390 IF K4>71 AND K4<78 THEN PEN 1 : LOCAT 
E 15, 14: PR I NT MID* ("UP DOWNLEFTRGHTF I RE 
FIRE" , < <K4-72> *4) +1 , 4) 

2400 CALL 8.7500, SK5: I5*=INKEY»: IF K5=K4 
OR K5=K3 OR K5=K2 OR K5=K1 THEN 2400 
2410 LOCATE 15, 16: PEN 3+(K5<16 OR K5=20> 

: PRINT 15*; 

2420 IF k5=9 THEN LOCATE 15, 16: PRINT"COP 
Y" ELSE IF k5=6 OR k5=18 THEN LOCATE 15, 
16: PR I NT "ENT" ELSE IF k5=21 THEN PR I NT "S 
HFT" ELSE IF K5=79 THEN LOCATE 15, 16:PRI 
NT "DEL" 

2430 IF K5=23 THEN PR I NT "CTRL" ELSE IF K 
5=16 THEN PRINT“CLR" ELSE IF K5=47 THEN 
LOCATE 15, 16: PR I NT " SPC " ELSE IF K5=70 TH 
EN PR I NT "CPS" ELSE IF K5=68 THEN LOCATE 
15, 16: PRINT"TAB" 

2440 IF K5>71 AND K5<78 THEN PEN 1: LOCAT 
E 15, 16: PRINT MID* ("UP DOWNLEFTRGHTF I RE 
FIRE", ( (K5-72)*4)+l,4> 

2450 CALL 8.7500, @K6: I6*=INKEY»: IF K6=K5 
OR K6=K4 OR K6=K3 OR K6=K2 OR K6=K1 THEN 
2450 

2460 LOCATE 15, 1B:PEN 3+(K6<16 OR K6=20> 

: PRINT 16*; 

2470 IF k6=9 THEN LOCATE 15, 18: PRINT"COP 
Y" ELSE IF k6=6 OR k6=18 THEN LOCATE 15, 
1B:PRINT"ENT" ELSE IF k6=21 THEN PRINT"S 
HFT" ELSE IF K6=79 THEN LOCATE 15,i8:PRI 
NT "DEL" 

2480 IF K6=23 THEN PRINT"CTRL" ELSE IF K 
6=16 THEN PRINT"CLR" ELSE IF K6=47 THEN 
LOCATE 15, 18: PRINT"SPC" ELSE IF K6=70 TH 
EN PR I NT "CPS" ELSE IF K6=6B THEN LOCATE 
15, 18: PRINT"TAB" 

2490 IF K6>71 AND K6<78 THEN PEN 1: LOCAT 
E 15, 18: PRINT MID* ("UP DOWNLEFTRGHTF I RE 
FIRE", ( (K6-72)*4)+l,4> 

2500 CALL 8.7500, 0K7: 1 7*= INKEY*: IF K7=K6 
OR K7=K5 OR K7=K4 OR K7=K3 OR K7=K2 OR K 
7=K1 THEN 2500 

2510 LOCATE 15,20:PEN 3+(K7<17 OR K7-20) 

: PRINT 17*; 

2520 IF k7=9 THEN LOCATE 15, 20: PRINT"COP 
Y" ELSE IF k7=6 OR k7=18 THEN LOCATE 15, 
20: PR I NT "ENT "ELSE IF k7=21 THEN PRINT"S 
HFT" ELSE IF K7=79 THEN LOCATE 15, 20: PR I 
NT"DEL“ 

2530 IF K7=23 THEN PRINT"CTRL" ELSE IF K 
7=16 THEN PRINT-'CLR" ELSE IF K7=47 THEN 
LOCATE 15, 20: PR I NT "SPC" ELSE IF K7=70 TH 
EN PR I NT "CPS" ELSE IF K7=68 THEN LOCATE 
15, 20: PR I NT "TAB" 

2540 IF K7>71 AND K7<78 THEN PEN 1 : LOCAT 



E 15, 20: PRINT MID* ("UP DOWNLEFTRGHTF I RE 
FIRE”, ( ( K7— 72 ) *4 > + 1 , 4 ) 

2550 PEN 1: LOCATE 5, 24: PRINT" IS THIS OK 

2560 FOR 1=1 TO 2000: IF INKEY (43> 0-1 TH 
EN RETURN ELSE IF INKEY (46> 0-1 THEN LOC 
ATE 5, 24: PRINT" ” ; : GOSUB 2890 

:GOTO 2190 
2570 NEXT 

2580 GOSUB 2940: RETURN 

2590 REM print current keys 

2600 LOCATE 15,6:PEN 3+<Kl<16 OR Kl=20> : 

PRINT II*; 

2610 IF kl=9 THEN LOCATE 15, 6: PRINT"COPY 
" ELSE IF kl=6 OR kl=18 THEN LOCATE 15,6 
: PR I NT "ENT " ELSE IF kl=21 THEN PR I NT "SHF 
T" ELSE IF Kl=79 THEN LOCATE 15, 6: PRINT" 
DEL” 

2620 IF Kl=23 THEN PR I NT "CTRL" ELSE IF K 
1=16 THEN PRINT"CLR" ELSE IF Kl=47 THEN 
LOCATE 15, 6: PR I NT "SPC" ELSE IF Kl=70 THE 
N PR I NT "CPS" ELSE IF Kl=68 THEN LOCATE 1 
5, 6: PRINT"TAB" 

2630 IF K1 >71 AND Kl<78 THEN PEN 1:L0CAT 
E 15, 6: PRINT MID* ("UP DOWNLEFTRGHTF I REF 
IRE", ( (Kl-72)«4>+l,4) 

2640 LOCATE 15,8:PEN 3-MK2C16 OR K2=20> : 
PRINT 12*; 

2650 IF k2=9 THEN LOCATE 15, 8: PRINT"COPY 
" ELSE IF k2=6 OR k2=18 THEN LOCATE 15,8 
: PR I NT "ENT" ELSE IF k2=21 THEN PR I NT "SHF 
T" ELSE IF K2=79 THEN LOCATE 15, 8: PRINT" 
DEL" 

2660 IF K2=23 THEN PR I NT "CTRL" ELSE IF K 
2=16 THEN PRINT"CLR" ELSE IF K2=47 THEN 
LOCATE 15, 8: PR I NT "SPC" ELSE IF K2=70 THE 
N PR I NT "CPS" ELSE IF K2=68 THEN LOCATE 1 
5,8: F*RINT"TAB" 

2670 IF K2>71 AND K2<78 THEN PEN 1 : LOCAT 
E 15, 8: PRINT MID* ("UP DOWNLEFTRGHTF I REF 
IRE", ( (K2-72)*4)+l,4» 

2680 LOCATE 15, 10: PEN 3+(K3<16 OR K3=20> 
: PRINT 13*; 

2690 IF k3=9 THEN LOCATE 15, 10: PRINT"COP 
Y" ELSE IF k3=6 OR k3=18 THEN LOCATE 15, 
10:PRINT"ENT" ELSE IF k3=21 THEN PRINT"S 
HFT" ELSE IF K3=79 THEN LOCATE 15, 10: PR I 
NT "DEL" 

2700 IF K3=23 THEN PR I NT "CTRL" ELSE IF K 
3=16 THEN PRINT"CLR" ELSE IF K3=47 THEN 
LOCATE 15, 10: PRINT "SPC" ELSE IF K3=70 TH 
EN PR I NT "CPS" ELSE IF K3=68 THEN LOCATE 
15, 10:PRINT"TAB" 

2710 IF K3>71 AND K3<78 THEN PEN 1 : LOCAT 
E 15, 10: PRINT MID* ("UP DOWNLEFTRGHTF I RE 
FIRE", ( (K3— 72) *4) +1 , 4> 

2720 LOCATE 15, 14: PEN 3+(K4<16 OR K4=20> 
: PR I NT 14*; 

2730 IF k4=9 THEN LOCATE 15, 14: PRINT"COP 
Y" ELSE IF k4=6 OR k4=18 THEN LOCATE 15, 
14: PR I NT "ENT" ELSE IF k4=21 THEN F'RINT"S 
HFT" ELSE IF K4=79 THEN LOCATE 15,14:PRI 
NT "DEL" 

2740 IF K4=23 THEN PRINT"CTRL" ELSE IF K 
4=16 THEN PRINT "CLR" ELSE IF K4=47 THEN 
LOCATE 15, 14: PRINT"SPC" ELSE IF K4=70 TH 
EN PR I NT "CPS" ELSE IF K4=68 THEN LOCATE 
15, 14: PRINT"TAB" 
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2750 IF K4>71 AND K4<70 THEN PEN 1 : LOCAT 
E 15, 14s PRINT MID* ("UP DOWNLEFTRGHTF I RE 
FIRE", <<K4-72)*4)+l,4> 

2760 LOCATE 15, 16: PEN 3+<K5<16 OR K5=20) 

: PRINT 154; 

2770 IF k5=9 THEN LOCATE 15, 16: PRINT"COP 
Y“ ELSE IF k5=6 OR k5=18 THEN LOCATE 15, 
16:PRINT"ENT" ELSE IF k5=21 THEN PRINT''S 
HFT" ELSE IF K5=79 THEN LOCATE 15, 16: PR I 

2780 IF K5=23 THEN PR I NT "CTRL" ELSE IF K 
5=16 THEN PRINT"CLR" ELSE IF K5=47 THEN 
LOCATE 15, 16: PRINT”SPC" ELSE IF K5=70 TH 
EN PR I NT "CPS" ELSE IF K5=68 THEN LOCATE 
15, 16: PRINT " TAB" 

2790 IF K5>71 AND K5<78 THEN PEN 1: LOCAT 
E 15, 16:PRINT MID*("UP DOWNLEFTRGHTFIRE 
FIRE", < (K5— 72) *4) +1 , 4> 

2800 LOCATE 15,18:PEN 3+(K6<16 OR K6=20) 
SPRINT 16*; 

2810 IF k6=9 THEN LOCATE 15, 18: PRINT"COP 
Y" ELSE IF k6=6 OR k6=18 THEN LOCATE 15, 
18: PRINT“ENT" ELSE IF k6=21 THEN PRINT"S 
HFT" ELSE IF K6=79 THEN LOCATE 15,18:PRI 
NT "DEL" 

2820 IF K6=23 THEN PRINT“CTRL" ELSE IF K 
6=16 THEN PRINT"CLR“ ELSE IF K6=47 THEN 
LOCATE 15, 18: PRINT"SPC" ELSE IF K6-70 TH 
EN PR I NT "CPS" ELSE IF K6=68 THEN LOCATE 
15, 18: PRINT"TAB " 

2830 IF K6>71 AND K6<7B THEN PEN 1: LOCAT 
E 15, 18:PRINT MID*("UP DOWNLEFTRGHTFIRE 
FIRE", < <K6-72)»4)+l,4) 

2840 LOCATE 15,20:PEN 3+<K6<17 OR K7=20) 
SPRINT 17*; 

2850 IF k7=9 THEN LOCATE 15, 20: PRINT"COP 
Y" ELSE IF k7=6 OR k7=18 THEN LOCATE 15, 
20: PRINT"ENT" ELSE IF k7=21 THEN PRINT“S 
HFT" ELSE IF IC7=79 THEN LOCATE 15,20:PRI 
NT “DEL" 

2860 IF K7=23 THEN PR I NT "CTRL" ELSE IF K 
7=16 THEN PRINT"CLR" ELSE IF K7=47 THEN 
LOCATE 15,20:PRINT"SPC" ELSE IF K7=70 TH 
EN PRINT"CPS" ELSE IF K7=68 THEN LOCATE 
15, 20: PRINT"TAB" 

2870 IF K7>71 AND K7<78 THEN PEN 1: LOCAT 
E 15, 20: PRINT MID* ("UP DOWNLEFTRGHTFIRE 
FIRE", < (K7-72)*4>+l,4) 

2880 RETURN 

2890 REM clear all keys 
2900 PEN 3 

2910 FOR i=6 TO 10 STEP 2:L0CATE 15, i:PR 
INT"_ " ; : NEXT 

2920 FOR i=14 TO 20 STEP 2:L0CATE 15, i:P 

RINT"_ " ; : NEXT 

2930 RETURN 

2940 REM SKILL LEVEL 

2950 GOSUB 350 

2960 M=1 

2970 PEN 6: LOCATE 2, 14: PRINT“PRESS: " : PEN 
9: LOCATE 2, 16: PRINT"SPACE = QUIT”:LOC 

ATE 2, 17:PRINT'*ENT/FIRE= I NCREASE " : LOCAT 
E 2, 18: PR I NT "ANY KEY = CHANGE" 

2980 PEN 1: LOCATE 3, 4: PRINT"SPEED LEVEL 
:": LOCATE 3, 10: PRINT"SKILL LEVEL :":PEN 
2: LOCATE 17, 4: PRINT USING SPL: LOCAT 

E 17, 10: PRINT USING "##";SKL 
2990 GOTO 3030 
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3000 FOR d=l TO 3000: IN*=INKEY*: IF IN*=" 
■ THEN 3010 ELSE IF IN*=" " THEN RETURN 
ELSE IF IN*=CHR* ( 13) THEN 3080 ELSE 3030 
3010 NEXT d 
3020 RETURN 

3030 PEN 1 : AX-O: LOCATE 3,7+(M»3):IF M<1 
THEN PR I NT "SPEED LEVEL :" ELSE PRINT"SKI 
. LEVEL 
3040 M=M*-1 

3050 PEN 1 SPRINT CHR* (24) : AX=0: LOCATE 3, 
7+(M*3):IF M<1 THEN PR I NT "SPEED LEVEL : " 
ELSE PR I NT "SKILL LEVEL :" 

3060 PRINT CHR* (24) 

3070 GOTO 3000 

3080 IF M<1 THEN SPL=SPL+1:IF SPL>10 THE 
N SPL=1 

3090 IF M=1 THEN SKL=SKL+1:IF SKL>10 THE 
N SKL=1 

3100 PEN 2: LOCATE 17, 4: PRINT USING 
SPL: LOCATE 17,10:PRINT USING SKL 

:il0 GOTO 3000 

l TO 22 STEP 3: FOR j=l TO 4:S 



OUND 7,0,10,0,3, 



3130 FOR i=l TO 96: READ 



3140 IF INKEY*<> 

3150 SOUND 2,0,20, 

3160 SOUND l,a»3,20, 15 
3170 SOUND 4, a, 20, 

3180 NEXT 
.3190 DATA 100, 130 
I, 150, 150, 150 



iO,0,C 



NEXT j : NEXT 



THEN RETURN 



150, 120, 120, 150, 150, 100, 100, 1 



150, 150, 120, 120, 150, 150, 100, 100, 100, 100, 

100 , 0 , 0,0 

3210 DATA 90,100,120,120,120,120,100,120 

, lOO, 130, 130, 130, 130, 130, 130,0, 120, 130, 1 

45, 145, 145, 145, 130, 130, 100, 100, 100, 100, 1 

00 , 0 , 0,0 

3220 RETURN 

3230 REM won level 

3240 ki=0:ma=0:skl=skl+l: IF skl>10 THEN 



3250 5pl=spl-l:IF spl<l THEN spl=l: IF ma 
= 1 THEN 3300 

3260 11=3: 12=3: en=99: PEN 3: LOCATE B,25:P 
RINT"*** +++ 99": CALL *<7000, 255, 35, 6, 3 

9,7,0,9,45,7,27 

3270 PEN 9: LOCATE 1,23: PRINT STRING*(20, 
208) ; 

3280 CALL *.7000,255,2 
3290 RETURN 
3300 REM won 

3310 WINDOW 5, 15,5, 10: PAPER 15:CLS 
3320 PEN Os PR I NT SPRINT : PRINT" YOU WON ! ! ! 
"SPRINT: PRINT 

3330 CALL *<7000,255,11,23,46,0,31,25 
3340 SOUND 7, lOO, 400, 10, , 2 
3350 FOR j=l TO 10 
3360 CALL «<BD19 

3370 FOR i=l TO 6: PRINT CHR* ( 11) ; :NEXT 
3380 CALL ABD19 

3390 FOR i=l TO 6:PRINT CHR* < 10) ;: NEXT 
3400 CALL S.BD19 
3410 NEXT 
3420 GOTO 1700 







SUBSCRIPTION ORDER FORM 



COMMODORE 




%\ 
i' 



Whatever your interest in the Commodore range 
of computers and peripherals, you simply 
\ cannot afford to miss a single issue. 

\ SUBSCRIPTION RATES 

V £16.60 for 12 Issues l.K 

\ £2 1. SO for 12 Issues Overseas Surface mall 

\ \ £57.00 for 12 issues Overseas Air mail ■■ 






\ \ \ 



Send this form with your remittance to: 
INFONET I.TI). . Times House, 179 The Marloues, 
Heme! Hempstead, Herts. HP 1 IBB. 




ELECTRON 
t' Coming foon: Spectrum 48K 



i 




THIS LITTLE MONEY- 



UCENSED TO THRILL 



SOFTWARE 



AMERICANA Software, Unit. 2/3., Hdforf Way, HoUord, BIRMINGHAM B6 7 AX. Tel: 021 356 3388. 



A M ST R A D 



CARDONIAN 




«S 



COMPUTER GAMER OCTOBER 1986 






■i 






10 DIM arm (30) , air <30> , mis <30) , ind (30) , s 
up (30> , nei (30) , nen (30, 30) , cou* (30) , cds (3 
0) , at (30) , own* (30) 

20 BOSUB 1960 
30 MODE 2 

40 INPUT-Do you wish to load in a previo 
us game <y/n)“;a* 

50 IF a*="y" THEN 1050 

60 IF a*<>“n" THEN 40 

70 INPUT “How many players"! pi 

80 FOR t=l TO pi 

90 INPUT "Enter your name ",n*(t) 

100 nm-INT(30»RND)+l: IF cds(nm)=l THEN 1 
00 

120 PRINT n* ( t ) “ . Your country is "5cou*( 

130 NEXT 
140 BOSUB 1240 
150 t-0 
160 t=t+l 
170 CLS 

180 IF cds(t)=l THEN 470 

190 IF at <t> <>0 AND sup(t>=0 THEN 320 

200 IF at (t> <>0 THEN 230 

210 IF RND»50>48 THEN at ( t) =nen ( t, INT (RN 

D*nei (t> ) +1 ) : at (at (t) ) *t 

220 IF at ( t) =0 THEN IF RND»2>0 THEN 280 

ELSE 450 

230 IF arm ( t > <2 AND airltXl THEN 1140 

240 IF arm(t)>2 AND air(t>>2 THEN 690 

250 IF arm ( t > >2 THEN 750 

260 IF air (t) >2 THEN BOO 

270 IF mis (t) >0 THEN 850 

280 IF arm ( t > <4 OR (ind(t>>2 AND RND*20> 

15) THEN arm( t ) =arni(tl +CINT ( ind ( t) *3/15) 

: 60T0 330 

290 IF air (t) <4 OR (ind(t>>2 AND RND*20> 
15) THEN air ( t )=air ( t ) +CINT (ind ( t ) *3/ 15) 

: BOTO 330 

300 IF mis ( t) <3 OR (ind(t)>4 AND RND*30> 
23) THEN mis ( t > =mis ( t > +CINT (ind ( t >*3/30) 
sBOTO 330 

310 IF ind (t) <4 OR RND*20>9 THEN ind(t)= 

ind(t)+l: BOTO 330 

320 sup ( t ) =sup (t ) +1 s BOTO 330 

330 IF arm(t) >15 THEN arm(t>=15 

340 IF arm (at (t) ) <0 THEN arm(at(t))=0 

350 IF air (t) >15 THEN air(t)=15 

360 IF air (at (t) > <0 THEN air(at(t))=0 

370 IF mis ( t ) >5 THEN mis(t)=5 

380 IF ind (t) >15 THEN ind(t)=15 

390 IF ind (at ( t) ) <0 THEN ind(at(t>>=0 

400 IF sup (t) >15 THEN sup<t)=15 

410 IF sup (t) <0 THEN sup(t>=0 

420 IF sup (at (t) ) <0 THEN sup(at(t)>=0 

430 IF ak=0 THEN 450 

440 IF arm (at (t) >=0 AND air(at(t))=0 THE 
N 970 

450 ak=0sIF t<30 THEN 160 
460 BOTO 1020 

470 st=0: CLS: PRINT own* (t ): PRINT "No.="; 
t;" ” jcou*(t) :PRINT“Present status: PR 
INT" Army =“arm (t ): PRINT" Airforc 
e="ai r ( t > : PRINT" Missi les="mis ( t ) : PRIN 

T" Industry®"! ind ( t ) : PRINT" Supplies 

="! sup (t ) 

480 PRINT TAB (28) ! "Please select an opti 

490 PRINT: PRINT" A Increase missile 

stocks": PRINT" B Improve Army":PRINT 

JMi 



KSfe ffit 

" C Improve Airforce" 

500 PRINT" D Bain industrial support 

":PRINT“ E Improve suppl ies" : PRINT" 

F Send supplies to another country" 
510 PRINT" B Improve another country 

's army" sPRINT" H Improve another co 

untry’s airforce" : PRINT" I Launch a 

520 PRINT" J Attack with Army" : PRINT 
" K Attack with airforce" : PRINT" 

L Attack with both" : PRINT" M Try an 



d make peace” 

530 q*=INKEY*s IF q*=" " THEN 530 
540 IF q*="a" AND mis(t)<5 THEN mis 
is ( t > +CINT < ind ( t) *3/30) : BOTO 330 
550 IF q*®“b" AND arm(t><15 THEN ar 
arm ( t> +CINT ( ind (t) *3/15) : BOTO 330 
560 IF q*="c" AND air(t)<15 THEN ai 
air ( t ) +CINT ( ind (t> *3/15) I GOTO 330 
570 IF q*="d“ AND ind(t><15 THEN i 



d(tH 



) 330 



580 IF q*="e" AND sup(t><15 THEN sup(t)= 

sup ( t ) + 1 s GOTO 330 

590 IF q*="f" THEN 1260 

600 IF q*=“g“ THEN 1310 

610 IF q*="h" THEN 1360 

620 IF q*=“i" THEN 1410 

630 IF q*="j" THEN 1450 

640 IF q*="k" THEN 1490 

650 IF q*="l" THEN 1530 

660 IF q*="m" THEN 1570 

670 GOTO 530 

680 REM »* Attacks by both »» 

690 a=Os IF arm(t)<l THEN 700 ELSE a=CINT 
( ( (5»arm(t)+ind(t) )»sup(t> > /55> 

700 b=0: IF airltXl THEN 710 ELSE b=CINT 



720 pr*=cou*(t>+" attacks "+cou* (at (t) ) : 
GOSUB 1230 

730 ak=l : sup ( t ) =sup ( t) — 1: GOTO 330 
740 REM ** Army attacks ** 

750 a-0:IF arm(tXl THEN 760 ELSE a=CINT 
( ( (5*arm(t)+ind(t) )*sup(t) >/55> 

760 arm (at ( t ) ) =arm (at ( t ) ) —a: ai r (at < t > ) =a 
ir (at (t > ) —INT (a/3) 

770 pr*=cou*(t)+" attacks "+cou*(at (t) > : 
BOSUB 1230 

780 ak“l : sup (t> “sup (t ) —1 : SOTO 330 
790 REM »* Airforce attacks ** 

800 b=0: IF airltXl THEN 810 ELSE b=CINT 
( ( (5*air (t)+ind (t) >*sup (t> ) /55) 

810 air (at (t) > =air (at ( t > > -b: arm (at ( t> ) =a 
rm(at (t) )— INT (b/3> 

820 pr *=cou*(t)+" attacks "+cou» (at (t) > : 
GOSUB 1230 

830 ak“l : sup ( t ) “sup ( t ) — 1 : GOTO 330 
840 REM ** Missile attacks »» 

850 arm (at (t) > =arm(at ( t) > -2s air (at (t> >“a 
ir (at ( t ) )— 2s ind(at(t))=ind(at(t>) -2: sup ( 
at (t) ) =sup (at (t) )-2 
860 mis(t)=mis(t)-l 

870 pr*=cou*(t)+“ fires a nuclear missil 
e at "+cou*(at(t)):GOSUB 1230 
880 ak=l : GOTO 330 

890 REM ** Check to see if the country i 
I s a neighbour «* 
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900 FOR j=l TO nei (t) : IF nen(t,j»=c THEN 
RETURN 

910 NEXT: SOUND 1 , 142: st=l : RETURN 

920 REM aa Input country aa 

930 CLS: INPUT"What country ",c 

940 IF c<l OR c>30 THEN SOUND l,142:st=l 

950 RETURN 

960 REM ** Been defeated aa 

970 pr*=cou*(4t(t))+" has been defeated 

by "+cou*(t):GOSUB 1230 

980 IF cds (at (t> ) = 1 THEN cds (at < t > ) =0s om 
n*(at(t> >=•••• 

990 IF cds < t > = 1 THEN cds (at ( t > ) = 1 : own* (a 

1000 at(at(t))-0:at(t>-0 
1010 GOTO 450 

1020 CLS: PRINT “Table of players" 

1030 FOR j=l TO pi: 

1040 tot ( j >=0 

1050 FOR k=l TO 30: IF own* (k) =n* ( j > THEN 

k)+sup(k> 

1060 NEXT k 
1070 NEXT 3 

1080 FOR 3=1 TO pi: PRINT: PRINT n*(3>“ ha 
s"; TAB (30> tot ( 3 ) " Btps“:NEXT 
1090 PRINT: PRINT"Enter options:-":PRINT" 
A Continue to play game" :PRINT“ 

B Save present game" 

1100 g*=INKEY*:IF g*="" THEN 1100 
1110 IF g*="a" THEN 1130 
1120 IF g*="b" THEN 1740 
1130 t=0: GOTO 160 

1140 pr*=cou* ( t > +" want to make peace wi 
th "+cou* (at ( t ) ) : GOSUB 1230 
1150 IF own* (at (t) >="” THEN IF RND»5>2 T 
HEN pr*="They agree on terms": GOSUB 1230 
:at(at(t) >=0: at ( t) =0: GOTO 450 ELSE pr*=” 
They don't agree on terms": GOSUB 1230: GO 
TO 450 

1160 PRINT own* (at (t> )" -Enter your terms 







AMSTRAD 



◄ 

1180 INPUT“Enter for Army " , al : INPUT"Ent 
er for Airforce ", a2: INPUT "Enter for Mis 
siles ",a3 

1190 INPUT"Enter for Industry ",a4: INPUT 
"Enter for Supplies ",a5 
1200 IF a3<mis (t>— 2 OR a4<ind(t>-2 OR a5 
<sup ( t ) -2 THEN 1220 

1210 IF RND*6>2 THEN pr*="They agree":GO 

SUB 1230: arm(t)=al: air (t)=a2: mis (t)=a3: i 

nd ( t ) =a4: sup ( t ) =a5: GOTO 450 

1220 pr*=“They don't agree on your terms 

“: GOSUB 1230: GOTO 450 

1230 PRINT P r*:PRINT"Press any Key" 

1240 WHILE INKEY*="":GOTO 1240: WEND: RETU 
RN 

1250 REM ** Send supplies a* 

1260 GOSUB 930: IF st=l THEN 470 

1270 GOSUB 900: IF st=l THEN 470 

1280 IF sup (c) <15 THEN sup (c ) =sup (c>+l 

1290 GOTO 330 

1300 REM •• Give army •• 

1310 GOSUB 930: IF st=l THEN 470 

1320 GOSUB 900: IF st=l THEN 470 

1330 IF arm(c><15 THEN arm <c ) =arm (c> +CIN 

T (ind (t)*3/15) 

1340 GOTO 330 

1350 REM ** Give airforce aa 

1360 GOSUB 930: IF st=l THEN 470 

1370 GOSUB 900: IF st=l THEN 470 

1380 IF air (c) <15 THEN air (c) =ai r (c> +CIN 

T ( ind (t> *3/15) 




1390 GOTO 330 

1400 REM ** Launch missile aa 
1410 GOSUB 930: IF st = l THEN 470 
1420 GOSUB 900: IF st=l THEN 470 
1430 at ( t) =c: at (c> =t: GOTO 850 
1440 REM »* Attack with Army ** 

1450 GOSUB 930: IF st=l THEN 470 
1460 GOSUB 900: IF st=l THEN 470 
1470 at ( t >=c:at (c> =t : GOTO 750 
1480 REM «* Attack with Airforce »* 

1490 GOSUB 930: IF st=l THEN 470 
1500 GOSUB 900: IF st-1 THEN 470 
1510 at <t>=c:at (c>=t:G0T0 BOO 
1520 REM a* Attack with both aa 
1530 GOSUB 930: IF st=l THEN 470 
1540 GOSUB 900: IF st=l THEN 470 
1550 at (t)=c:at(c)=t:GOTO 690 
1560 REM aa Try to make peace aa 
1570 GOSUB 930: IF st=l THEN 470 
1580 GOSUB 900: IF st=l THEN 470 
1590 PRINT cou*" agrees if you have" 

1600 al=INT(5aRND)+arm(t>-5: IF al<0 THEN 
al=0 

1610 PRINT'Army of "al 

1620 a2=INT(5aRND)+air(t)-5: IF a2<0 THEN 
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a3=0 

1650 PRINT"Missiles of "a3 
1660 a4=INT<5»RND>+ind<t)-5: IF a4<0 THEN 
a4=0 

1670 PRINT” Industry of ”a4 
1680 a5=INT (5*RND) +sup < t ) —5: IF a5<0 THEN 
a5=0 

1690 PRINT”Supp lies of ”a5 
1700 INPUT"Do you agree <y/n)";q* 

1710 IF q*="y” THEN at Cc>=0sat (t>-0:arm< 

t ) =al : air <t ) =a2:mis( t ) =a3s ind ( t) =a4ssup ( 

t ) =a5: GOTO 330 

1720 IF q*<>"n" THEN 1700 

1730 GOTO 330 

1740 CLSs INPUT "Enter name for file"|sv* 
1750 OPENOUT sv* 

1760 FOR z=l TO 30 

1770 WRITE #9, arm (z) ,air(z),mis(z),ind(z 

1780 NEXT z 
1790 WRITE #9, pi 
1800 FOR z-1 TO pi 
1810 WRITE #9,n*(z> 

1820 NEXT z 
1830 CLOSEOUT 
1840 GOTO 1020 

1850 CLSs INPUT "Enter name or file"; Id* 
1860 OPENIN Id* 

1870 FOR z=l TO 30 

1880 INPUT #9, arm (z) ,air(z) , mis ( z > , ind ( z 
) , sup (z),cds(z),at(z>, own* < z > 

1890 NEXT z 



1940 

1950 

1960 



INPUT #9,n*(a 
NEXT z 
CLOSE IN 
GOTO 1020 



FOR I 



I TO 3 



sREAD a 



i(t) ,a 



) READ nei ( t ) s FOR j=l TO nei(t> 

It , j > : NEXT i 
■) READ cou*(t) 

> NEXT t: RETURN 
) DATA 3, 3, 2, 3, 4, 2, 2, 3, Ex one 
) DATA 4, 4, 2, 3, 3,4, 1,3, 7,21, Buc 
) DATA 5, 4, 3, 3, 3, 5, 1,2, 4, 5, 7, Torcal 




1 1 1 i 1 1 ! 1 1 

«i m in hi in hi hi hi m 



1 1 i l ii i 

in m hi In m m in 

444 



2060 DATA 5, 4, 3, 4, 3, 7, 2, 3,5, 6, 9, 1 1 , 21 , Mu 
lan 

2070 DATA 4, 4, 2 , 4, 2, 5,9, lO, 18, 20, 21 , Play 
dask 

2080 DATA 5,5,3,5,3,7,6,7,8,10,11,12,21, 
Oodonent 

2090 DATA 4, 4, 2, 4, 2, 5, 8, 9, 12, 16, 18, Conti 



2140 DATA 4.4.2.4.2.6.14.16.27.28,29.30. 
Rorterm 

2150 DATA 5,5,3,5,3,7,10,12,14,15,17,18, 
27, Simshond 

2160 DATA 5, 4, 3, 4, 3, 5, 16, 18, 24, 26, 27, Cop 
enica 

2170 DATA 5,5,2,5,3,7,8,10,16,17,19,20,2 
4, Heathast 

2180 DATA 3, 4, 2, 4, 2, 3, 18, 20, 24, Frackl in 
2190 DATA 5, 4, 3, 4, 3, 6,8, 18, 19, 21, 22,24, E 
d instead 

2200 DATA 5, 5, 2, 4, 3, 5, 2, 7, 8, 9,20, Brazers 
on 

2210 DATA 4, 4, 3, 3, 4, 3, 20, 23, 24, Monsal lgr 

2220 DATA 4, 4, 4, 3, 5,3, 22, 24, 25, Oberstein 
2230 DATA 5,4,3,4,3,8,17,18,19,20,22,23, 
25,26, Quaker leigh 

2240 DATA 3, 3, 3, 3, 3, 3, 23, 24, 26, Holmead 
2250 DATA 5, 5, 3, 4, 5, 5, 17, 24, 25, 27, 28, Ken 



« <! 
OO 



dalemir 

2260 DATA 4, 3, 2,3, 2, 5, 15, 16, 17, 26, 28, Ced 
2270 DATA 4, 4, 3, 4, 4, 4, 15, 26, 27, 29, Stag 
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SilverTime"' 



U.S. Cold Ltd., Units 2/3 Holtord Way, Holford, 
Birmingham B6 7 AX. Tel: 021 356 3388. 





>p kings from Konamf, each game an all action arcade hit , 
yoJPhome computer. Treat your computer to only the bestg c 
crown it with the arcade kings! 



/imaglge Software (1984) Limited - 6 Geritral Street • Manchester M2 5NS • Tel: 061 83^ 
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rasmi 






tu 















cAsat, 



The mountains are waiting 
to claim you. Travel with us 
back in time to the 
Prehistoric Ases. Here you 
must suide Adam in his 
quest to rescue his wife 
from the clutches of the 
hostile mountain men. She 
is well guarded, the desert 
is crawling with mighty 
beasts, prehistoric birds 
roam amongst the caves, 
rugged savage mountain 
men will try to kill you as 
you enter the dead lands, 
there is no turning back 
from this nightmare 
journey. Can you succeed 
or will you perish like all 
those who went before 
you. A full colour 
3D cartoon action packed 
arcade strategy spectacular. 




Polar Pierre is a one or two 
player arcade game where 
two can play at the same 
time. Guide Pierre or his 
cousin Jacques through an 
icy obstacle course, racing 
through ski jumps, mystery 
chalets, lifts, electro- 
generators, shooting 
snowballs, springboards, 
stampers and thunder and 
lightning. Polar Pierre also 
includes a construction set 
so you can design and play 
your own screens. 

Both games 
available for: 
Commodore 64/1 28 
cass 9.95 disk 14.95 
Atari 400/800/XL/ 
XE48K ram 
cass 9.95 disk 14.95 



Available from all good computer stores or post free from: 



Databyte 

1 5 Wolsey Mews, Kentish Town, London NW5 2DX 
Telephone 01-482 1755 







LEAPER 

Amazing all action arcade animation and 
sonics. Gribblies, 6 levels, 3 tunes, and 
even the last VW. The game you've been 
waiting for...C16, C64, Atari. 



SBUGETTI 

JUNCTION 

Trainee- traffic cop 
Louigi is on the 
loose. He still thinks 
he's sur le contignon. 
It's megapile-up time 
unless you take 
control. Spectrum. 



CRICKET 

Set the field, the 
pace, one player or 
two, and then 
thunder down the 
wicket to try and beat 
the 'Merry Hackers.' 
Fully animated action. 
BBC/Electron. 



OLLO 

‘First Mission’ and 
The Final Assault on 
Olio! Ace action, 
stunning graphics 
and sonics straight 
from the arcades. 
C64. 



HOODOO 
VOODOO 

Rght your way across 
the alien world of 
Krellis IX, defeat the • 
Bloopalgrop Curse 
and become a 
Superheroooo. 
Powerful sounds and 
amazing scrolling 
graphics. C64. 



JEEP 
COMMAND 

Escape through 
unchartered enemy 
territory under 
ferocious fire. Drive 
that jeep, Fire those 
guns, Jump the 
ramps. It’s fast, 
furious and addictive 
C64, Cl 6. 



Argus Press Software Group, Victoria House, Leicester Place, London WC2H 7NB. 01 -439 0666. 
For mail-order and 'Byte-me' T-shirts (small, med, large: £3). 




THE 



AMSTMD 



DIAMOND 
RING 



This extraordinary adventure was written in 



by P Nordbakke 



Norway. Take it away Olaf . . . 

10 REM *THE DIAMOND RING* 

20 MODE 1 : INK 0,1: INK 1,26: INK 2,22:INK 
3, 25: BORDER l:FOR XX=4 TO 6: PEN4XX, 3: NEX 
T XX: DIM B <4) : FOR XX=1 TO 4:B(XX)=INT(RN 
D*9) +1 : NEXT XX:GOSUB 1900:G0SUB 1430: GOS 
UB 1940: WI ND0W#1 , 1 , 40, 1 , 5: WIND0W42, 1,40, 
7,7:WIND0W*3, 1,40,9, 19: WIND0W#0, 1 , 40, 21 , 
25 

30 WIND0W#4, 1, 40, 6,6: WIND0W45, 1 , 40, 8, 8: W 
IND0W#6, 1,40, 20, 20: FOR X=1 TO 6:PAPER#X, 
0:PEN#X, 1:NEXT:P=1:Z*=STRING*<40, 154) : PR 
INT#4, Z*; :PRINT#5, Z*; :PRINT#6, ZS; 

40 CLSCtl :PRINT#1,S*(P> : CLS#2: Q*="" : IF VC 
P.llOO tHEN Q*=Q*+"North, " 

50 IF VIP, 2)00 THEN Q*=Q*+"East, " 

60 IF VIP, 3)00 THEN Q*=Q*+"South, " 

70 IF V IP, 4><>0 THEN Q*=Q*+"West": A=1 
80 IF A=0 THEN Q*=LEFT* I Q*, LEN CQ* ) - 1 ) ELS 
E A=0 

90 PEN#2,2:PRINT#2, "You can go: :PEN#2, 
1 : PRI NT#2 , Q* : CLS#3: PEN#3 , 2 : PR I NT#3 , You 
can see: :PEN#3, 1:F0R XX=1 TO 20: IF PIX 
7.) =P THEN PRINT#3,TABC13)T*CXX):A=1 
100 NEXT XX: IF A=0 THEN PRINT#3, "Nothing 
else "ELSE A=0 

110 IF P<>12 AND F=1 THEN F=0 
120 GOSUB 1330 

130 IF P=12 AND F=0 THEN 1400 

140 PEN 1 : PRINT">“; : PEN 2:LINE INPUT IN* 

: IF LEN I IN*> = 1 THEN 410 

150 FOR XX— 1 TO LEN I IN*) : IF MID* I IN*, XX, 
1)=" "THEN IO*=LEFT* I IN*, XX— 1 ) : I 1*=RIGHT 
* I IN*, LEN I IN*) -XX) :A=1: GOTO 170 
160 NEXT XX 

170 IF A=0 THEN I0*=LEFT*IIN*,3) :GOTO 19 
O ELSE A=0 

1 BO 1 0*=LEFT * 1 1 O* , 3 ) : 1 1 *=LEFT* 1 1 1 * , 31 
190 IF I 0*= " PO I " OR IO*="SCO"THEN PRINT43 
:PRINT#3, "Do you think this is PACMAN ?? 
" : GOTO 130 

200 IF IO*="SOU"OR IO*="NOR"OR IO*="WES" 
OR IO*="EAS"THEN IN*=LEFT* I IO*, 1 ) : GOTO 4 
10 

210 IF IO*="HEL"THEN PRINT#3: PRINT#3, "Ma 

ke a MAP!": GOTO 130 

220 IF I0*=" INV" THEN 480 

230 IF IO*="LOO"THEN 40 

240 IF IO*="GET"OR IO*=“TAK“OR IO*="PIC" 
THEN 510 

250 IF IO*="DRO"THEN 620 

260 IF I 0*="EXA"0R IO*="REA" THEN 690 

270 IF IO*="UNL"THEN 890 

280 IF IO*-"GO“OR 1 0*“ " RUN " THEN 1030 

290 IF 1 0*= " OPE " THEN 1040 

300 IF 10*— "USE "OR IO*="CLI "THEN 1 lOO 

310 IF IO*="QUI "OR IO*="STO"OR IO*="END" 

THEN 1140 

320 IF I 0*= " G I V " THEN 1170 
330 IF 1 0*= “ EAT "THEN 1280 
340 IF I0*="KIL"0R I 0*= " ATT " THEN PRINT#3 



:PRINT#3, "No killing in this adventure'" 
: GOTO 130 

350 IF IO*="SAV"THEN 1310 

360 IF 10*— "LOA"THEN 1320 

370 ON INTCRND*3>+1 GOTO 380,390,400 

380 PRINT#3:PRINT#3, "I don't understand 

you!": GOTO 130 

390 PRINT#3: PRINT#3, "What do you try to 
tell me?": GOTO 130 

400 PRINT#3:PRINT#3, "Try again! ":GOTO 13 
0 

410 PRINTD3: IF IN*=“N" THEN IF VCP, 1)00 
THEN P=V (P, 1 ) : GOTO 40 

420 IF IN*="E“THEN IF VCP, 2)00 THEN P=V 
<P,2):G0T0 40 

430 IF IN*="S"THEN IF VCP, 3)00 THEN P=V 
(P,3) :GOTO 40 

440 IF IN*="W"THEN IF VCP,4)<>0 THEN F=V 

<P, 4) : GOTO 40 

450 IF IN*=" I "THEN 480 

460 IF IN*<> "N" AND IN*<>"E"AND IN*<>“S“A 
ND IN*<>"W"THEN PRINT43, "Sorry, but I do 
n't understand you!":GOTO 130 
470 PRINT#3, "You can't go that way. Fool 
! " : GOTO 130 

480 PEN03, 2: PRINT#3, "You have with you:" 
: PEN03 , 1 : FOR XX=1 TO 19: IF PCXX)=0 THEN 
PRINT#3,T*CXX> : A=1 

490 NEXT XX: IF A=0 THEN PRINT03, "Nothing 
! "ELSE A=0 
500 GOTO 130 

510 GOSUB 1380: IF BB=1 THEN BB=0:G0T0 13 
O ELSE PRINT#3 

520 IF C*3 THEN PRINT#3, "Your hands are 

Full ! " : GOTO 130 

530 IF S=15 THEN 590 

540 IF S>7 THEN PRINT43, "You can't do th 

at!": GOTO 130 

550 IF S=15 THEN 590 

560 IF P(S)=0 THEN PRINT03, "You are carr 
ying it!":GOTO 130 

570 IF PCS) OP THEN PRINT#3, “You can't s 
ee it here!": GOTO 130 

580 PRINT#3, "Q.K. ":P (S> =0: C— C+l : GOTO 130 
590 FOR XX=15 TO 18: IF P(XX)=P THEN 600 
ELSE NEXT XX: PRINT#3, " You can't see a pi 
ce OF paper! ":GOTO 130 

600 D=P: GOSUB 820:D=O:IF A=1 THEN A=0:G0 
TO 130 

610 PRINT#3, “O.K. " : P (B+14) =0: C=C+1 :GOTO 
130 

620 GOSUB 1380: IF BB=1 THEN BB=0:G0T0 13 

O ELSE PRINT#3 

630 IF S=15 THEN 670 

640 IF S>7 THEN PRINT#3, "FOOL! ! ! ! ! ":GOTO 
650 IF PCSIOO THEN PRINT#3, "You can't!” 




E=1 THEN PRINT#3, "It'i 



>en ‘ " : GOT 



3 GOTO 130 

660 PRINT43, "O. K. " : F' (S> =P:C=C- 1 : GOTO 130 
670 GOSUB 820s IF A=1 THEN A=0:GOTO 130 
680 PRINT43, "0. K. " : PO <B+14) =P: C=C-1 :GOTO 
130 

690 GOSUB 1380: IF BB=1 THEN BB=0:G0T0 13 
O ELSE PRINT43 

700 IF S=4 AND p(4)=0 THEN PRINT#3, “ It ‘ 9 

NT#3, "You look under the tarpaulin and y 
ou Find a ladder !": P<8>=P: GOTO 130 
720 IF S=13 AND P<13)=P AND P(4)=-l THEN 
PRINT43, "You examine the cabinet and yo 

730 IF S=5 AND P(15)=-l AND<F'=P<5)0R P(5 
1 =0) THEN PR I NT #3, "You Find a pice oF pap 

740 IF S=ll AND P<18>=-1 AND P=22 THEN P 
RINT#3, "It's a pice oF paper under it!": 
P < 18) =22: SOTO 130 

750 IF S— 6 AND P(17>=-1 AND(P=P<6)OR P(6 
> =0) THEN PRINT*3,-"0h! You Find a pice o 
F paper! ":P(17)=P: GOTO 130 




980 PEN#3,2:PRINT#3, "TYPE IN THE CODE:": 
PEN43, 1 : FOR XX=1 TO 4 

990 PRINT#3, TAB (2) "NUMBER: "; XX; " — >: "; : I 
NPUT#3,IX:IF IX<1 OR IX>9 THEN PRINT#3,C 
HR* < 1 1 > 5 : GOTO 990 

1000 C(XX)=IX:NEXT X7.:F0R XX- 1 TO 4: IF C 
< XX > =B ( XX > THEN NEXT XX:G0T0 1020 
1010 PRINT43, "Wrong code!":G0T0 130 
1020 PRINT43, "Correct code' The safe is 
open. “:E=1: GOTO 130 
1030 IN*=>LEFT* (II*, 1 ) : GOTO 410 
1040 GOSUB 1380: IF BB=1 THEN BB=0:G0T0 1 
30 ELSE PRINT43 

1050 IF S=5 AND(P(5)=P OR P(5>=0)THEN PR 
INT#3, "You open the box ! ":G0T0 130 
1060 IF S=13 AND P=17 AND P(4)=-l THEN P 
RINT43, "You open the cabinet !": P( 131=17: 
P (20) =-l : GOTO 130 

1070 IF S— 14 AND F<19)=P THEN PRINT43, "T 
ry to unlock it!": GOTO 130 
1080 IF S=9 AND P=21 THEN 970 
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760 IF S=16 AND P=13 THEN PRINT43, "It re 
ads: ONLY 500 YARDS TO BEN'S INN.":GOTO 

770 IF S=9 AND E=1 AND P=21 AND T(3)=-l 
THEN PRINT#3, "You Find the ->DI AMOND RIN 
G<— ! ":P(3> =21 : GOTO 130 
780 IF S=15 THEN 800 

790 PRINT#3, "You see nothing special !“:G 
0T0 130 

BOO GOSUB 820: IF A=1 THEN A=0:G0T0 130 
810 PRINT43, “It reads: ";B;" — >"5B(B);“!" 

820 IF D=P THEN 850 

830 FOR XX— 15 TO 18: IF P<XX)=0 THEN 850 
840 NEXT XX:PRINT#3, "You don' have a pic 
e oF paper ! ":A=1: RETURN 

850 FOR XX-1 TO 4: IF P<XX+14)=D TH 

EN Q*=Q*+STR* ( XX > *' " , “ 

860 NEXT XX: Q*=LEFT* ( Q* , LEN <Q* ) — 1 ) : IF LE 
N ( Q* > =2 THEN B=VAL ( Q* ) : RETURN 
870 PR I NT #3 , " Wh itch pice oF paper (";Q*j 
" > "; : INPUT43, ": ";B:PRINT#3: IF<B< 1 OR B> 
4 ) THEN PRINT#3,"No No No! FOOL ! ! ! " : A=1 : 
RETURN ELSE IF PIB+14) OO AND 0=0 THEN P 
RINT43, "You don' have that pice oF paper 
! ":A=1: RETURN 
880 -RETURN 

890 GOSUB 1380: IF BB=1 THEN BB=0:GOTO 13 
0 ELSE PRINT43 

900 IF S=13 AND P=17 THEN PRINT43, "Its 
not locked! ":G0T0 130 

=0 THEN PRINT43, "You unlock the gate!":P 
< 19) =-l : P ( 14) =2: V (2, 4) =15: GOTO 130 
920 IF S=14 AND P=2 AND P(19)=P AND P(l) 
OO THEN PRINT43, “You haven't the key!": 
GOTO 130 

930 IF S=9 AND P=21 THEN 970 



940 IF S<>13 AND S<>14 AND S<>9 THEN PRI 




960 PRINT43, "You can't see it here!”:G0T 




1100 GOSUB 1380: IF BB=1 THEN BB=0:G0T0 1 
30 ELSE PRINT43 

1110 IF SOS THEN PRINT#3, "You can t do 
that!": GOTO 130 

1120 IF P<>9 OR P (8) 09 THEN PRINT43, "Yo 
u can't see the ladder !“ :G0T0 130 
1130 PRINT#3, "You climb the ladder! ":P=1 
0 : WH I LE INKEY*<> " " : WEND: WHILE INKEY*=" " : 
WEND: GOTO 40 

1140 PRINT43: INPUT43, “Are you sure (Y/N) 
??"; AN*: IF AN*="N"THEN 130 
1150 IF AN*<>"Y"THEN 1140 
1160 CALL 8<BBFF : CALL &BB4E: END 
1170 GOSUB 1380: IF BB=1 THEN BB=0:GOTO 1 
30 ELSE PR I NT #3 

1180 IF S=2 AND P=2 AND P(2>=0 THEN PRIN 
T#3, “You give the cigarette to the garde 

key. "j :P <1 ) =0: P <2> =-l : GOTO 130 
1190 IF S=2 AND P=2 THEN PRINT#3, "You ha 
ven ’ t the sigarette ! " : GOTO 130 
1200 IF P=2 THEN PRINT#3, "Nobody want's 
it!": GOTO 130 




1220 IF S=4 AND P=25 THEN PRINT43, "You h 

aven't got the bottle! ":G0T0 130 

1230 IF P=25 THEN PR I NT 43, "Nobody here w 



1240 IF S=7 AND P=6 AND P(7)-0 THEN PRIN 
T#3, "You give the Food to the dog. It t 

":P<7)=-1:C=C-1:V(6, 1)=7:G0T0 130 
1250 IF S=7 AND P=6 THEN PRINT43, "You do 
n't have the meat!":G0T0 130 
1260 IF P=6 THEN PRINT43, "The dog growls 
at you ! " : GOTO 130 • 

1270 PRINT43, "It ’s nobody here to give i 
t to!": GOTO 130 

1280 GOSUB 1380: IF S=7 AND P(7)=0 THEN p 
RINT#3,"Eat DOG FOOD !": GOTO 130 
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1290 IF S=7 THEN PRINT43, "You haven't go 
t the food ! “ : GOTO 130 

1300 PRINT43, “You can't eat that!":G0T0 
130 

1310 OPENOUT " R I NGDAT A " : SPEED WRITE 1:PRI 
NT#9,P,C,D,E,F:F0R XX-1 TO 4: PRINT49, B < X 
X) s NEXT XX: FOR XX-1 TO 20 : PRINT 49, F' ( XX ) : 
NEXT XX: FOR XX=1 TO 28: FOR YX=1 TO 4:PRI 
NT#9, V ( XX, YX) : NEXT YX, XX: CLOSEOUT: CLS: GO 
TO 130 

1320 OPENIN"RINGDATA" : INPUT49, P,C,D,E,F: 
FOR XX=1 TO 4: INPUT#9,B(XX> :NEXT XX:FOR 
XX=1 TO 20: INPUT49, P ( XX > : NEXT XX: FOR XX- 
1 TO 28: FOR YX=1 TO 4: INPUT49, V (XX, YX) :N 
EXT YX,XX:CLOSEIN:CLS:GOTO 40 
1330 PRINT43: IF P=2 THEN PRINT43, "The ga 
rdener is standing beside you RETURN 
1340 IF P=25 THEN PRINT43, "The steward i 
s standing beside you!":RETURN 
1350 IF P—6 AND P(7)=-l THEN PRINT43, "Th 
e dog it eating the f ood !": RETURN 
1360 IF P—6 THEN PRINT 43, "The dog growls 
at you ! " : RETURN 
1370 RETURN 

1380 FOR XX-1 TO 16: IF I1S-S0* (XX) THEN S 
=XX: RETURN 

1390 NEXT XX:PRINT#3:PRINT#3, "You can't 
do that! ":BB=1: RETURN 

1400 PRINT43: IF P«3X>0 AND F=0 THEN PRI 
NT#3, "A man says to you: Fool ! Find the 



e gives you some money .": PR I NT43: PRINT 
#3: PRINT43: PRINT43: PRINT43, "YOU HAVE REA 
CHED THE END OF THIS ADVENTURE. 

LOOK OUT FOR THE NEXT !": END 
1430 DIM S*<28> ,V<28,4> ,T*<20) ,P(20) , SO* 
< 16> : RESTORE 1450:FOR XX=1 TO 20:READ S* 
(XX> sNEXT XX: RESTORE 1730:F0R XX-1 TO 28 
s FOR YX— 1 TO 4: READ V (XX, YX) : NEXT YX, XX: 
RESTORE 1830: FOR XX-1 TO 20: READ T*(XX): 
NEXT XX: RESTORE 1860: FOR XX-1 TO 20: READ 
P(XX) 

1440 NEXT XX: RESTORE 1870: FOR XX-1 TO 16 

: READ SO*(XX):NEXT XX: RETURN 

1450 DATAYou are on a very big lawn. Fa 

1460 DATAYou are standing on a gravelway 



1470 DATAYou a 

1400 DATAYou a 
1490 DATAYou a 
1500 DATAYou a 



1510 DATAYol 

1520 DATAYol 
an smell idol 
1530 DATAYol 



1540 DATAYou 
1550 DATAYou 

1560 DATAYou 
1570 DATAYou 
road. Atthe 



AMSTRAI) 



1580 DATAYou are walking on a dusty high 
1590 DATAYou are standing outside the ga 



1610 DAT AY 

1620 DATAY 
1630 DATAY 
1640 DATAY 
1650 DATAY 

1660 DATAY 
1670 DATAY 
1680 DATAY 

11s well. 

1690 DATAY 
1700 DATAY 
1710 DATAY 








1730 DATAO, 0,2,0, 1,3, 0,0, 0,5, 0,2 
1740 DATAO, 0,3, 0,6, 16,0,3,0,0,5,4 
1750 DATAO, 0, 6, B, 0,7, 0,9, 0,8, 0,0 
1760 DATAO, 0,0, 11,0, 10, 13,0,0, 13,0,0 
1770 DAT A 1 1 , 0 , 14, 12, 13,15,0,0,0,2,0,14 
1780 DAT A17,0,O,5, 18,20, 16,0,0, 19, 17,0 
1790 DATAO, 24,0, IB, 0, 0, 21 , 17, 20, 26, 22 , » 
1800 DATA21, 0,0, 0,0, 0,24, 0,23, 27, 25, 19 
1810 DATA24,0,0,0,0,2B, 0,21, 0,0, 0,24 
1820 DATAO, 0,0, 26 

1830 DATAA key, A cigarette, The diamond r 
1840 DATASome food.’A ladder, A safe, A tar 

1860 DATA-1 ,27, -1,-1,18,28,24,-1,21,9,22 
,6, -1,-1, -1,-1, -1,-1, 2, 17 
1870 DATAKE Y , C I G, R I N , BOT , BO X , BUC , F00 
1 880 DATALAD, SAF , TAR, BED , DOG , CAB , GAT 
1890 DATAPAP, SIG 

1900 RESTORE 1910:F0R XX-1 TO 26: READ YX 
: KEY DEF YX, 1 , XX+64, XX+64, XX+64: NEXT XX: 
RETURN 

1910 DATA69, 54,62,61 , 58, 53, 52, 44,35 
1920 DATA45 , 37 , 36 , 38, 46 , 34 , 27 , 67 , 50 
1930 DATA60, 51 , 42, 55, 59, 63, 43, 71 
1940 CLS: LOCATE 7,3:PEN 3: PRINT"Welcome 
to the Diamond Ring": PEN 1: LOCATE 1,8 
1950 PRINT" In this adventure game y 

2 

1960 PR I NT " <ENTER > " 

1970 IF INKEYS—CHR* ( 13) THEN 1970 
1980 IF INKEYSOCHR* ( 13) THEN 1980 
1990 CLS: RETURN 
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COMPUTER GAMER CHRISTMAS SPECIAL 



ESSEX 




LIVERPOOL 


MIDDLESEX 




SCOTLAND 


CAREY ELECTRONICS 

FOR 

THE BBC 

MICROCOMPUTER 

SYSTEM 

Computers Peripherals 
Software 

Mail Order/Enquiries 
Frinton-on-Sea 
(02 556) 6993 




BITS AND BYTES 
COMPUTERS 

Ma "°Tov D .r.o hasnow 

18 Central Station 
Liverpool City Centre 
Liverpool 1 
Tel: (0S1) 709 4036 

BBC AND MOREII 
FOR ALL YOUR^ SOFTWARE 


INNOVATIONS 
COMPUTING AND 
VIDEO 

9 Harmondsworth Road, 
West Drayton, 
Middlesex UB7 9JS 
Tel: (0895) 420457 

Inexpensive software 




MEGABYTE 

12 ETTRICK SQUARE 
CUMBERNAULD 
G67 1ND 

(0236) 738398 


EAST MIDLANDS 




LONDON 


1 NORTH YORKS 




SCOTLAND 


MICROWARE 

Home Computer 
Support Specialists 
Software ' Peripherals 

(Qualified Service Engineers) 

— 7 Leicester Road, 
Loughborough 234226 
- Ford’s Dept. Store, Victoria 
Centre, Lower Parliament 
Street, Nottingham 475872 




SOFTWARE STORE LTD 
35 London Road. 
Tooting SW17 

software for all computers. 
ALL AT OISCOUNT PRICESI 

Atari Is our speciality. 

Call In lor Your Xmas Bargalnl 

Or phone 01-685 1476 


ATARI COMMODORE 

YORK COMPUTER 
CENTRE 

WE CATER FOR ALL 
POPULAR MACHINES 

^PEMPHgtALS - BOOKS^ ^ 

7 STONEYGATE ARCADE 
YORK, YORKSHIRE 
Tel: 0904-641862 

z a 




LIVINGSTONE COMPUTER 
CENTRE 

software and peripherals 
supplier. We stock every- 

Atari ST, Commodore, 
Spectrum etc. Phone tor 


GLASGOW 




LONDON 


SURREY 




SCOTLAND 


THE COMPUTER 
DEPOT 

205 Buchanan St, Glasgow 
G1 2JZ 

Tel: 041-332 3944 

loads ot discount bargains. 

’ ” WEEKLY SPECIALS ’ ’ ’ 

a 




GOEL COMPUTER 
SERVICES 
45 Boston Rd, 
London W7 3SH 
Tel: (01) 579 6133 

We deal In all the following 
machines 

■ IBM • APPLE • AMSTRAD * 
SPECTRUM • ATARI • 
COMMODORE • MSX • BBC 
ELECTRON 


THE GAMES ROOM 
UNIT 15, THE MARKETHALL, 
HIGH ST, EPSOM, SURREY. 

At least 20% discount for 
software in all popular home 
computers. 

Ring Epsom J03 7-27) 44465 




WORLDWIDE SOFTWARE 
1 Bridge St. Galashiels 
Selkirkshire TD1 1SW 

25% off most Commodore 
Titles 

" Phone for information 
of latest releases" 

Tel: (0896) 57004 


WHY NOT INCLUDE YOUR 


COMPUTER GAMER - 


— 
- SPECIAL 


BUSINESS DETAILS IN OUR 
SPECIAL GUIDE? RING DUNCAN 
NEILSON ON 01-437 0699 OR 
FILL IN THE DETAILS OF YOUR 
BUSINESS (OPPOSITE) AND WE 
WILL CONTACT YOU! 


GUIDE — Please contact me from 
the details below:- 

Company ‘ 

Address 

Tel. No: 
















Trained to kill, you must penetrate the defenses ot 
Abraxas, destroy the terrorist H.Q. and glide to safety. 






•Quicksilva Ltd., Victory House, 
Leicester Place, 

London WC2H 7NB. 

Tel: 01-439 0666 
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Nichibutsu's arcade hot-shot on 
your home computer now! 

If you havn't already played it in the 
arcades then you're in for a real surprise 
- if you have then you'll be going Mag 
Max to load it into your micro. 

Mag Max could be a mean machine if 
you've got what it takes to put him 
together. Build him up and his fire-power 
increases - you'll need it! - believe it! 
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